BACKGROUND OF THE INVENTION 

(1) FIELD OF THE INVENTION : The present invention relates to an electronic, self 
contained, automated bill payment machine and method of use incorporating real time or batch 

5 processing of the payment. 

(2) DESCRIPTION OF THE PRIOR ART : In many instances, bills, such as utility bills, 
credit card payments, bills for subscriptions for newspapers, periodicals and the like are paid 
by mailing checks or by credit card payments and even electronic fund transfers from a bank 
or other financial institution authorized by the recipient of the bill or the "payor". One common 

10 method of paying utility bills is the presentment of a bill by a customer to a clerk or teller at a 
grocery store or other consumer environment. The bill is paid with cash, check or by means of 
a credit or debit card. The bill may contain scan line information or information in another 
format which identifies the customer' s account number and gives data about the amounts owed, 
the due date, the nature of the utility, and the like. The teller or the clerk at the grocery or other 

15 store then scans the scan line information with a scanner which reads the information into a 
computer and the computer computes the amount due with a clerk manually inputting the 
amount paid. Alternatively, of course, these steps may be, and frequently are, accomplished by 
annual means without the use of the computer. The payor's account is updated with the 
payment information and the payment is credited to the account of the particular utility or other 

20 provider. 

This system has many obvious disadvantages, one being that it is very labor-intensive 
and costly for the issuers, as well as the grocery and other stores which collect the payments. 
Another, equally onerous disadvantage is that the customers often wait in long lines to pay their 
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bills, and can pay them only when tellers or clerks are on duty. 

The present invention addresses the problems of the prior art generally as above 
described. 

BRIEF DESCRIPTION OF THE DRAWINGS 

5 Fig. 1 is a schematic perspective illustration of the machine of the present invention, in 

kiosk format. 

Figs. 2A and 2B together constitute a logic flow chart of the various method steps 
incorporated into the machine of the present invention. 

SUMMARY OF THE INVENTION 

10 The present invention provides a machine for the payment in real time or batch of a bill. 

As used herein "bill" means a document in the hand of an operator which requires financial 
satisfaction. Typically, the bill will be issued and transmitted to a person owing the bill, 
hereinafter referred to as a "payor" by an entity referred to as a "billor". The payor may be an 
individual or a business, governmental or educational entity. The billor typically will be a 

15 utility company, but may be any other type of business entity, such as a retail store, outlet, 
service provider, such as a plumber, electrician, or the like. 

The machine comprises a support structure which is preferably in the form of a body or 
base having a number of faces in the form of a "kiosk" structure. Electronic means within the 
support structure are provided for transmitting data in real time or batch such as through a 

20 dedicated telephone line, or the like to and from the machine pertaining to the payment of the 
bill. Means are secured to the support structure for electronically scanning the bill to identify 
and retrieve predeterminable data on the bill such as the name of the billor, the name of the 

#273511 4 



payor, the amount of the bill, the type of bill, the frequency of the bill, whether or not partial 
payment is accepted, and the like. A microprocessor is incorporated into a computer which 
includes a computer program for the operation of the computer to store and retrieve data 
pertaining to the payment of the bill and for generating commands to the machine for 
5 implementing the various steps in the operation of the machine and the practice of the method. 
Means are provided in the structure for optically scanning a check issued by a financial 
institution, such as a bank, which is presented on behalf of the payor by the human operator of 
the machine for payment of the bill. Video monitor means, preferably a touch-sensitive screen, 
is provided for prompting and confirming various commands and steps in the operation of the 

10 machine and the method. Means are also provided for generating on the screen a video 
instruction image for operation of the screen by the operator, as, for example, the image of a 
human or the like. Means are also provided for generating an audio signal in a preselected 
language, i.e., English or other language, concurrently with the video instruction image 
generated on the screen, which may also be the touch screen or, alternatively, a separate screen. 

15 A computer is programmed for computing data received through the optical reader and 
controlling the screen and the audio signal. The computer also applies, as programmed, the 
payment of the bill and electronically transmits data pertaining to the payment of the bill in real 
time or batch to the billor and, if a check is used for full or partial payment of the bill, to the 
financial institution to generate a real time or batch ACH transaction debit to the account of the 

20 payor. 

In one embodiment of the invention, a method for payment by the operator for use of 
the computer system is provided in which a check may be used to initiate full or part payment 
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of the bill. The check is not required to be either signed or filled in, such as by filling in the 
amount of the check and the name of the payee along the line which typically will state "pay to 
the order of. The machine and method converts this to a self-service "ACH transaction". As 
used in the specification and in the claims, the phrase "ACH TRANSACTION" means the 

5 conversion of a conventional check drawn on a financial institution and converting it into an 
electronic check for payment through means of an automated banking clearing house (ACH). 
An electronic check is an electronic payment instruction which is digitally signed by the payor. 
Typically, a payor issues an electronic check with a digital signature to the payee. The payee 
endorses the check by providing a digital signature to the check which then passes the endorsed 

10 check electronically to the payee's bank. The payee's bank verifies the syntax of the check to 
make sure that it is correct, and also verifies the signature of the payee on the check. Thereafter, 
the payee bank converts the check into a format which is suitable for clearing with the 
Automatic Clearing House (ACH) of the Federal Reserve Net Settlement System. The payee 
bank issues a formatted ACH debit instruction containing the check to the ACH. At the 

15 designated time of day, the ACH performs the check settlements and eventually performs a 
funds transfer by sending a credit to the payee's bank and a debit to the payee institution. As 
contemplated herein, an ACH transaction converts an unsigned conventional check and the 
amount of the check not inserted on the check into a scanner and the data therefrom is processed 
and converted into an ACH transaction. 

20 In actual commercial operation, the "payor" is a retail consumer who is not a 

professional computer operator. The machine and the method permit self-service bill payment 
by the operator/consumer. The service is provided 24 hours per day, 7 days per week, without 
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the assistance of an on-site trained operator. Assistance to the unskilled operator is provided 
by a call center professional who can remotely assist in completing the transaction. 

The machine and method also permit the remote acceptance of cash by the computer 
from the payor. It provides money reconciliation for the retailer/host to secure the control and 
5 reconciliation over the cash accepted by the machine. It then provides for the ACH sweep of 
the cash depository account and automatic conversion of cash to electronic ACH to permit 
transfer of the funds. 

An SQL data base located on the support structure runs independently of the central 
computer even if communications between the central computer and the machine are 
10 interrupted. The data base is periodically replicated to the central computer when 
communications are working and the data is automatically uploaded to the central machine for 
final processing. 

DESCRIPTION OF THE PREFERRED EMBODIMENTS 
The computer of the machine includes a micro processor which may be any one of a 
15 number of commercially available integrated circuit micro processors, such as Compaq® (a 
registered trademark of Compaq Incorporated). It may be battery-powered or backed-up or may 
operate off of alternating current source and will have a random access memory ("RAM") and 
a read-only memory ("ROM") and is programmed as herein described. 

Now with first reference to Fig. 1, there is shown a perspective illustration of the 
20 machine 1 00 of the present invention in kiosk format for practice of the method. As shown in 
Fig. 1 , a base or lower kiosk housing 1 receives a companion upper kiosk housing 2 which, as 
shown, has a number of faces or off-sets 2a, 2b, and 2c. The faces 2b and 2c, as will be shown, 
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are duplicative with respect to receipt of operational components. 

Each of the faces 2b, 2c contain a touch screen monitor of conventional form and readily 
available from a number of commercial sources- A "touch screen" is an input device which is 
used to acquire data for the computer through the computer program for the control of functions 
5 in the machine and method. A "touch" on a touch screen means that the touch screen senses the 
presence of an object, such as a tip of a finger of a human operator or another object, for 
example, a stylist, at and/or at a small distance from an active surface area ("field") of the touch 
screen. An output signal which, in general, is either an electrical, i.e. optical, signal is generated 
from the touch screen. The output signal may include information which is directly dependent 
10 on the position of the "touch" on the touch screen. 

The active surface area on the screen may be arranged into predetermined regions and, 
when a particular region is "touched", the output signal may then depend on a unique 
identification code which refers to that particular region of the screen. An input component 
including the touch screen performs data processing on the output signal from the touch screen 
15 to provide a signal which is compatible with a predetermined format, as further described 
herein. Typical of such touch screen technology is as disclosed in U.S. Patent No. 4,550, 21 1 
to Mabusth, entitled "Touch Sensitive Control Device." 

Each of the faces 2b, 2c have in proximity to the touch screens 3 an electronic key pad 
4 for input of various numerals required for identification of billing accounts, check numbers, 
20 and other manual insertion of data for use by the computer as hereinafter described. 

An optical check reader 5 is provided on check face 2a and on a face (not shown) 
adjacent face 2c for introduction through a window 5a of a check to be optically scanned during 
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the payment process. Preferably, the optical scanner for reading of checks is as manufactured 
by RDM Corporation of Canada. 

A telephone hand set 6 is also provided on face 2a in the event that the customer desires 
to communicate with a service assistant or operator for questions about the operation of the 
5 apparatus or method or to report errors or malfunctions. 

A bill acceptor 7 also is provided on panel surface 2a for the insertion of paper currency 
to determine the genuineness of the currency as well its amount for purposes of calculating 
correct payment of the utility bill. The currency is moved over a path along which various 
optical, magnetic or edge sensing tests are performed. Such devices are commercially available 
10 from a number of sources, or well known to those skilled in the art and may be selected from 
a number of varying components. Typical of such prior art devices is that as generally disclosed 
in U.S. Patent No. 4,470,496 entitled "Control Circuit for Bill and Coin Changer," to Steiner. 
Such devices may be provided in a component which is programmed to dispense a cash voucher 
for the inserted paper currency when the amount of the paper currency and/or the check exceed 
15 the amount of the bill or bills to be paid. 

A series of printers 8 are disposed on the face 1 a of the housing 1 for printing of receipts 
and other information reflecting the payment transaction occurring through the apparatus. 

As shown, the kiosk incorporating the present apparatus has at its top a television 9 
which is controlled by a third computer within the support structure. This computer may be 
20 operated with a number of operating software systems, such as Windows 2000 and MSInternet 
Explorer. The computer also contains an SQL database which keeps track of the advertisements 
that are being shown via digital video on the television 9. The advertisers have the ability to 
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connect to central host computer systems via the web which contains a database of demographic 
profiles for the neighborhoods where each of the machines are located. The advertiser is able 
to select the demographic criteria which it desires, such as income, race, language, housing 
value, sex, geographic region and many other categories which the advertiser desires to target 

5 with the advertisement. The advertiser is then permitted to rank and select the machines with 
locations most like the preferred or targeted demographic profile requirements. The advertiser 
then binds an electronic contract for the particular machines on which it wishes to advertise and 
selects the time slots and number of times it wishes to run the advertisement on the television 
9. The advertiser then produces the advertisement to the technical specification and downloads 

10 the advertisement to a central computer system joining a plurality of the self-service machines. 
The advertisement is then electronically "pushed" out to the individual, selective machines. 

The software preferably utilized to implement the present invention may be any one of 
a machine code, such as visual basic, or Microsoft ASP. The logic and sub-routines utilized to 
form the machinery and method disclosed herein is set forth below: 

15 

-- MainSecurity replication job 

*********************************************** 
begin transaction 

20 

DECLARE @JobID BINARY(16) 
DECLARE @ReturnCode INT 
SELECT @ReturnCode = 0 

25 — if the standard merge job category doesn't exist, create it 

if (select count(*) from msdb.dbo.syscategories where name = N'REPL-Merge') < 1 
execute msdb.dbo.sp_add_category N'REPL-Merge' 

— if this job doesn't exist, create it 
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select @JobID = job_id from msdb.dbo.sysjobs where (name = 

N'ASKSQLOl-MainSecurity-MamSecurity-KLOOOOl') 

if(@JobIDisNULL) 

BEGIN 

5 execute @ReturnCode = msdb.dbo.sp_addJob @job_id = @JobID OUTPUT, @job_name 
= N'ASKSQLOl-MainSecurity-MainSecurity-KLOOOOr, @enabled = 1, @start_step_id = 1, 
@notify_level_eventlog = 2, @notify_level_email = 0, @notify_level_netsend = 0, 
@notify_level_page = 0, @delete_level = 0, ©description = N'MainSecurity database 
replication for KL00001', @category_name = N'REPL-Merge', @owner_login_name = N'sa' 
10 if (@@ERROR o 0 OR ©ReturnCode o 0) goto QuitWithRollback 

— step one, 'start agent' message 

execute ©ReturnCode = msdb.dbo.sp_addJobstep @job_id = @JobID , @step_id = 1, 
@cmdexec_success_code = 0, @on_success_action = 3, @on_success_step_id = 0, 
15 @on_fail_action = 3, @on_fail_step_id = 0, @retry_attempts = 0, @retry_interval = 0, 
@os_runj5riority = 0, @flags = 0, @step_name = N'Log Reader Agent startup message.', 
©subsystem = N'TSQL', ©command = N'sp_MSadd_merge_history @perfmon_increment = 
0, @agent_id = 155, @runstatus = 1, 

©comments = "Starting agent.'", ©server = 
20 N'ASKSQLO 1 @database_name = N'distribution' 

if (©©ERROR o 0 OR ©ReturnCode o 0) goto QuitWithRollback 

- step two, run agent (standard two-way replication) 

execute ©ReturnCode = msdb.dbo.sp_add_jobstep @job_id = ©JobID , @step_id = 2, 
25 @cmdexec_success_code = 0, @on_success_action = 1, @on_success_step_id = 0, 
@on_fail_action = 3, @on_fail_step_id - 0, @retry_attempts = 10, @retry_interval = 1, 
@os_run_priority = 0, ©flags = 0, @step_name = N'Run agent.', ©subsystem = N'Merge', 
©command = N'-Publisher [ASKSQL01] -PublisherDB [MainSecurity] -Publication 
[MainSecurity] -Subscriber [KL00001] -SubscriberDB [LocalSecurity] -Distributor 
30 [ASKSQL01] -DistributorSecurityMode 1 ', ©server = N'ASKSQLO 1', @database_name = 
N'distribution' 

if (©©ERROR o 0 OR ©ReturnCode o 0) goto QuitWithRollback 

~ step three, look for non-logged shutdown 

35 execute ©ReturnCode = msdb.dbo.sp_addJobstep ©job id = ©JobID , ©step id = 3, 
@cmdexec_success_code = 0, ©on_success_action = 2, @on_success_step_id = 0, 
@on_fail_action = 2, @on_fail_step_id = 0, @retry_attempts = 0, @retry_interval = 0, 
@os_run_priority = 0, ©flags = 0, @step_name = N'Detect nonlogged agent shutdown.', 
©subsystem = N'TSQL*, ©command = N'sp_MSdetect_nonlogged_shutdown ©subsystem = 

40 "Merge", @agent_id = 155', ©server = N'ASKSQLOl', @database_name = N'distribution' 
if (©©ERROR o 0 OR ©ReturnCode o 0) goto QuitWithRollback 

~ start job at step one 
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execute @ReturnCode = msdb.dbo.sp_updateJob @job_id = @JobID, @start_step_id = 1 
if (@@ERROR o 0 OR @ReturnCode o 0) goto QuitWithRollback 

~ schedule job to run nightly 
5 execute @ReturnCode = msdb.dbo.sp_addJobschedule @job_id = @JobID, @name = 
N'Replication agent schedule.', ©enabled = 1, @freq_type = 4, @freq_interval = 1, 
@freq_subday_type = 1, @freq_subday_interval = 1, @freq_relative_interval = 2, 
@freq_recurrence_factor = 0, @active_start_date = 200 1 0326, @active_end_date = 9999 1 23 1 , 
@active_start_time = 0, @active_end_time = 235959 
10 if (@@ERROR o 0 OR @ReturnCode o 0) goto QuitWithRollback 

-- job runs on ASKSQL01 
execute @ReturnCode = msdb.dbo.sp_addJ observer @job_id = @JobID, @server_name = 
N'asksqlOl* 

15 if (@@ERROR o 0 OR @ReturnCode o 0) goto QuitWithRollback 



END 

20 commit transaction 
goto EndSave 
QuitWithRollback: 
if (@@TRANCOUNT > 0) rollback transaction 
EndSave: 

25 

GO 
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— MainKiosk replication job 

***************************************************************** 

5 begin transaction 

DECLARE @JobID BINARY(16) 
DECLARE @ReturnCode INT 
SELECT @ReturnCode = 0 

10 

-- if the standard merge job category doesn't exist, create i 

if (select count(*) from msdb.dbo.syscategories where name = N'REPL-Merge') < 1 
execute msdb.dbo.sp_add_category N'REPL-Merge 1 

15 --if this replication merge job doesn't exist, create it 

select @JobID = job_id from msdb.dbo.sysjobs where (name = 

N' ASKSQLO 1 -MainKiosk-MainKiosk-KLOOOO 1 ') 

if(@JobIDisNULL) 

BEGIN 

20 execute @ReturnCode = msdb.dbo.sp_add Job @job_id = @JobID OUTPUT, @job_name 
= N'ASKSQLOl -MainKiosk-MainKiosk-KLOOOO 1', ©enabled = 1, @start_step_id = 1, 
@notify_level_eventlog = 2, ©notifylevelemail = 0, @notify_level_netsend = 0, 
@notify_level_page = 0, @delete_level = 0, ©description =N'MainKiosk database replication 
for KLOOOl', @category_name = N'REPL-Merge', ©owner Jogin_narne = N'sa* 

25 if (@@ERROR o 0 OR @ReturnCode o 0) goto QuitWithRollback 

~ step one, 'start agent' message 

execute @ReturnCode = msdb.dbo.sp_add_jobstep @job_id = @JobID , @step_id = 1, 
@cmdexec_success_code = 0, @on_success_action = 3, @on_success_step_id = 0, 
30 @on_fail_action = 3, @on_fail_step_id = 0, @retry_attempts = 0, @retry_interval = 0, 
@os_run_priority = 0, @flags = 0, @step_name = N'Log Reader Agent startup message.', 
©subsystem = N'TSQL*, ©command = N'sp_MSadd_merge_history @perfmon_increment = 
0, @agent_id = 154, ©runstatus = 1, 

©comments = "Starting agent.'", ©server = 
35 N'ASKSQLO 1 ', @database_name = N'distribution' 

if (©©ERROR o 0 OR ©ReturnCode o 0) goto QuitWithRollback 

~ step two, run the agent with ExchangeType 1 for one-way inbound replication only 
execute ©ReturnCode = msdb.dbo.sp_addJobstep @job_id = ©JobID , @step_id = 2, 
40 @cmdexec_success_code = 0, @on_success_action = 1, ©on success step id = 0, 
@on_fail_action = 3, @on_fail_step_id = 0, @retry_attempts = 10, @retry_interval = 1, 
@os_run_priority = 0, ©flags = 0, @step_name = N'Run agent.', ©subsystem = N'Merge', 
©command =N'-Publisher [ASKSQL01] -PublisherDB [MainKiosk] -Publication [MainKiosk] 
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-Subscriber [KL00001] -SubscriberDB [LocalKiosk] -Distributor [ASKSQL01] 
-DistributorSecurityMode 1 -ExchangeType 1', @server = N'ASKSQL01' 
if (@@ERROR o 0 OR @ReturnCode o 0) goto QuitWithRollback 

5 ~ step three, look for non-logged shutdown 

execute @ReturnCode = msdb.dbo.sp_addJobstep @job_id = @JobID , @step_id = 3, 
@cmdexec_success_code = 0, @on_success_action = 2, @on_success_step_id = 0, 
@on_fail_action = 2, @on_fail_step_id = 0, @retry_attempts = 0, @retry_interval = 0, 
@os_run_priority = 0, @fiags = 0, @step_name = N'Detect nonlogged agent shutdown.', 
10 ©subsystem = NTSQL', ©command = N'sp_MSdetect_nonlogged_shutdown ©subsystem = 
"Merge", @agent_id = 154', ©server = N'ASKSQLOl', @database_name = ^distribution' 
if (©©ERROR o 0 OR ©ReturnCode o 0) goto QuitWithRollback 

~ start job at step one 

15 execute ©ReturnCode = msdb.dbo.sp_update Job @job_id = ©JobID, @start_step_id = 1 
if (©©ERROR o 0 OR ©ReturnCode o 0) goto QuitWithRollback 

- schedule job to run half-hourly 
execute ©ReturnCode = msdb.dbo.sp_addJobschedule @job_id = ©JobID, ©name = 
20 N'Replication agent schedule.', ©enabled = 1, @freq_type = 4, @freq_interval = 1, 
@freq_subday_type = 4, @freq_subday_interval = 30, @freq_relative_interval = 2, 
@freq_recurrence_factor = 0, @active_start_date = 200 1 0326, @active_end_date = 9999 1 23 1 , 
@active_start_time = 0, @active_end_time = 235959 
if (©©ERROR o 0 OR ©ReturnCode o 0) goto QuitWithRollback 

25 

-- job runs on ASKSQL01 
execute ©ReturnCode = msdb.dbo.sp_addjobserver @job_id = ©JobID, @server_name = 

N'asksqlOl' 

if (©©ERROR o 0 OR ©ReturnCode o 0) goto QuitWithRollback 

30 

END 

commit transaction 
35 goto EndSave 

QuitWithRollback: 

if (©©TRANCOUNT > 0) rollback transaction 
EndSave: 

40 GO 
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~ Replication failure e-mail job 



*********************************************** 

5 begin transaction 

DECLARE @JobID BINARY(16) 
DECLARE @ReturnCode INT 
SELECT @ReturnCode - 0 

10 

if job category doesn't exist, create it 
if (select count(*) from msdb.dbo.syscategories where name = N'REPL-Alert Response 1 ) < 1 
execute msdb.dbo.sp_add_category N'REPL-Alert Response' 

15 --if this job doesn't exist, create it 

select @JobID = jobjd from msdb.dbo.sysjobs where (name = N'Replication Failure e-mail f ) 

if(@JobID is NULL) 

BEGIN 

execute @ReturnCode = msdb.dbo.sp_addJob @job_id = @JobID OUTPUT, @job_name 
20 = N ! Replication Failure e-mail 1 , @enabled = 1 , @start_step_id = 1 , @notify Jevel_eventlog = 
2, @notify_level_email = 0, @notify_level_netsend = 0, @notify_level__page = 0, 
@delete Jevel = 0, @description = N'Send e-mail using SMTP when replication agent fails/, 
@category_name = N'REPL-Alert Response', @owner_login_name = N'sa ! 

if (@@ERROR o 0 OR @ReturnCode o 0) goto QuitWithRollback 

25 

execute @ReturnCode = msdb.dbo.sp_addjobstep @job_id = @JobID , @step_id = 1, 
@cmdexec_success_code = 0, @on_success_action = 1, @on_success_step_id = 0, 
@on_fail_action = 2, @on_fail_step_id = 0, @retry_attempts = 0, @retry_interval = 1, 
@os_run_priority = 0, @flags = 0, @step_name = N'Send E-mail', ©subsystem = NTSQL', 
30 @command = N'if (datepart(hh, getdateO) between 7 and 20) 
begin 

declare @KioskName varchar(lOO) 
select top 1 

35 @KioskName = substring(name, 30, 7) + ,f @askharris.com" 

from 

distribution.dboMSmerge_agents 

join distribution. dbo.MSmerge__history on 
distribution.dbo.MSmerge_history.agent_id = distribution.dbo.MSMerge_agents.id 
40 where 

name like "%MainKiosk%" and 
runstatus — 6 
group by name 
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order by max(time) desc 

exec prjsendmail ^ioskName,"techs@askharris.com", m, ,"Replication Failure","This 
is an automated alert." 
5 if (datepart(hh, getdateO) > 14) 

exec pr_sendmail (5^oskName/7 1 37208607(^ 

Failure'V'They got the message too..." 
end 

*, @database_name = N'MainKiosk' 
10 if (@@ERROR o 0 OR @ReturnCode o 0) goto QuitWithRollback 

execute @ReturnCode = msdb.dbo.sp_updateJob @job_id = @JobID, @start_step_id = 1 
if (@@ERROR o 0 OR @ReturnCode o 0) goto QuitWithRollback 

15 execute @ReturnCode = msdb.dbo.sp_addJ observer @job_id = @JobID, @server_name = 
N'asksqlOl' 

if (@@ERROR o 0 OR @ReturnCode o 0) goto QuitWithRollback 
END 

20 

commit transaction 
goto EndSave 
QuitWithRollback: 
if (@@TRANCOUNT > 0) rollback transaction 
25 EndSave: 

GO 
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- TWC PMT summary report 

- cash and check subtotals 

******************************************************************* 

5 

~ RL 02/04/2001 : made from CHW payment report 

- RL 03/29/2001 : add datetime values to join conditions 

use MainKiosk 
10 go 

drop proc pr_TWC_PMT_report 
go 

15 create proc prTWCPMTjreport 
as begin 

~ overhead for file creation 
create table ##TWC_PMT 
20 (id int identity, OutputLine varchar(200)) 
delete from ##TWC_PMT 
declare @FileName varchar(100) 

select @FileName = 'c:\askHarris_TWC_PMThuman_' + replace(convert(varchar, getdateO, 
25 106), ' ' ,") + '-' + right('0' + cast(datepart(hh,getdate()) as varchar(2)),2) + right('0' + 
cast(datepart(mi,getdateO) as varchar(2)),2) + '.txf 

declare @OutputLine varchar(200) 

30 declare @QueryCount int 

declare @QueryTotal money 
declare @SummaryCount int 
declare @SummaryTotal money 

35 select @SummaryCount = 0 
select @SummaryTotal = 0 

insert into ##TWC_PMT (OutputLine) 
40 values (") 

insert into ##TWC_PMT (OutputLine) 

values ('askHarris.com') 

insert into ##TWC_PMT (OutputLine) 
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values ('PAYMENT SUBTOTALS') 
insert into ##TWC_PMT (OutputLine) 
values ('for Time Warner 1 ) 
insert into ##TWC_PMT (OutputLine) 
5 values ('Generated ' + convert(varchar, getdateO)) 
insert into ##TWC_PMT (OutputLine) 
values (") 



10 declare Something cursor for 
select 

cast((PaymentType + ' Transactions') as char(20)) 
+ ' ' + 

cast(isnull(count(*),0) as char(10)) 

15 +'' + 

convert(char(l 5), isnull(sum(PaymentAmount),0),0), 
isnull(count(*),0), sum(PaymentAmount) 

from 
(select 

20 case count(*) 

when 1 then max(pt.PaymentTypeName) 

else 'Mixed' 

end as PaymentType, 

(sum(prt.PaymentAmount) - max(bdt. Service Amt) - IsNull(max(bdt.Donation), 0)) as 
25 PaymentAmount 
from 

BillDetaiiTransaction bdt 

JOIN BillPay bp ON bdtBillDetaiHd = bp.BillDetailId and bdtKioskPCID = 

bp.KioskPCID and bdtDateTimeofBillScan = bp.DateStamp 
30 JOIN PaymentRecordTransaction prt ON bp.PaymentRecordld = prt.PaymentRecordId 

and bp.KioskPCID = prt.KioskPCID and bp.DateStamp - prt.DateTimeofPayment 
JOIN PaymentType pt on ptPaymentTypelD = prt.PaymentTypeid 
JOIN ReceiptBill rb on rb.BillPayID = bp.BillPaylD and rb.KioskPCID = 

bp.KioskPCID and rb.DateStamp = bp.DateStamp 
35 JOIN ReceiptDetailTransaction rdt on rdtReceiptDetaillD = rb.ReceiptDetaillD and 

rb.KioskPCID = rdt.KioskPCID and rb.DateStamp = rdtDateTimeofReceiptlssue 

where 

bdt.CompanyAccountTypelD =10 and 
bdt.QBTed=10 
40 group by bdt.billdetailid, bdt.kioskpcid) as foo 
group by PaymentType 

open Something 
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fetch from Something into @OutputLine, @QueryCount, @QueryTotal 

while @@fetch_status = 0 
begin 

5 select @SummaryCount = @SummaryCount + @QueryCount 

select @SummaryTotal = @SummaryTotal + @QueryTotal 

insert into ##TWC_PMT (OutputLine) 
values (@OutputLine) 

10 fetch next from Something into @OutputLine, @QueryCount, @QueryTotal 

end 

close Something 
deallocate Something 

15 

insert into ##TWC_PMT (OutputLine) 
values (") 

insert into ##TWC_PMT (OutputLine) 

values (Total Transactions ' + cast(@SummaryCount as char(10)) + ' ' + convert(char(15), 
20 @SummaryTotal)) 



-- print contents of temp table to disk file 
declare @BCPCommand varchar(200) 
25 select @BCPCommand = 'bcp "SELECT OutputLine FROM ##TWC_PMT order by id" 
queryout *"+ @FileName + '" IT Id 
EXEC master..xp_cmdshell @BCPCommand 

select @BCPCommand = 'move ' + @FileName + 
30 \\ASKVTS01\Transmissions\outgoing\TWC\' 
EXEC master..xp_cmdshell @BCPCommand 



insert into 
35 MainSecurity.dbo.JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

values 

(getdateO, 0, 'TWC PMT report', 'File generated successfully.') 
40 drop table ##TWC_PMT 
end ~ create proc 
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- SWB NSF report 



****************************************************************** 

- RL 01/20/2001 : start 

5 - RL 01/23/2001 : add total to end of report 

- RL 01/25/2001 : send output to text file on ASKVTS01 

-- RL 01/27/2001 : use QBTed value to choose records to process 

- RL 01/29/2001 : convert to stored procedure 

« RL 03/29/2001 : add datetime values to join conditions 

10 

use MainKiosk 
go 

drop proc pr_SWB_NSF 
15 go 

create proc pr_SWB_NSF 
as begin 

20 ~ overhead for file creation 
create table ##SWB_NSF 
(id int identity, OutputLine varchar(200)) 
delete from ##SWB_NSF 
declare @FileName varchar(100) 

25 

select @FileName = 'c:\askHarris_SWB_NSF_' + replace(convert(varchar, getdateO, 106), ' ' 
,") + '-> + right('0' + cast(datepart(hh,getdateO) as varchar(2)),2) + right('0' + 
cast(datepart(mi,getdateO) as varchar(2)),2) + '.txt' 

30 declare @OutputLine varchar(200) 
declare @DetailAmount money 
declare @TotalAmount money 



35 insert into ##SWB_NSF (OutputLine) 
values (") 

insert into ##SWB_NSF (OutputLine) 
values ('askHarris.com') 
insert into ##SWB_NSF (OutputLine) 
40 values ('RETURNED CHECK REPORT*) 
insert into ##SWB_NSF (OutputLine) 
values ('for Southwestern Bell 1 ) 
insert into ##SWB_NSF (OutputLine) 
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values ('Generated 1 + convert(varchar, getdateO)) 
insert into ##SWB_NSF (OutputLine) 
values (") 

insert into ##S WB_NSF (OutputLine) 
5 values (' Payment r ) 
insert into ##SWB_NSF (OutputLine) 
values C Date Account # Amount ') 
insert into ##SWB_NSF (OutputLine) 
values (' ') 

10 

declare NSFCursor cursor for 
select 

15 convert(char(10), prt.DateTimeofPayment, 101) 

bdt.BillAccountNumber 
+ ■ ' + 

convert(char(12), prt.PaymentAmount - bdtServiceAmt, 0), 
20 prt.PaymentAmount - bdtServiceAmt 

from 

PaymentRecordTransaction prt 

join ReturnedChecks rc on prtPaymentRecordID = rc.PaymentRecordID and 
prtKioskPCID = rc.KioskPCID 
25 join BillPay bp on prt.PaymentRecordID = bp.PaymentRecordID and prt.KioskPCID 

= bp.RioskPCID and prt.DateTimeofPayment = bp.DateStamp 

join BillDetailTransaction bdt on bdtBillDetaillD - bp.BillDetaillD and bdtKioskPCID 
= bp.KioskPCID and bdt.DateTimeofBillScan = bp.DateStamp 
where 

30 bdtcompanyaccounttypeid = 3 and 

rc.QBTed=10 
order by 

prtDateTimeofPayment 

35 select @TotalAmount = 0 
open NSFCursor 

fetch from NSFCursor into @OutputLine, @DetailAmount 

while @@fetch_status = 0 
40 begin 

select @TotalAmount = @TotalAmount + @DetailAmount 
insert into ##SWB_NSF (OutputLine) 
values (@OutputLine) 
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fetch next from NSFCursor into @OutputLine, @DetailAmount 

end 

close NSFCursor 
5 deallocate NSFCursor 

insert into ##SWB_NSF (OutputLine) 
values (") 

insert into ##SWB_NSF (OutputLine) 

10 values (- === ' ) 

insert into ##SWB_NSF (OutputLine) 

values (' TOTAL AMOUNT: ' + convert(char(12), @TotalAmount, 0)) 

~ print contents of temp table to disk file 
15 declare @BCPCommand varchar(200) 

select @BCPCommand = 'bcp "SELECT OutputLine FROM ##SWB_NSF order by id' 

queryout '"+ @FileName + 11 Id 

EXEC master, .xp cmdshell @BCPCommand 

20 select @BCPCommand = 'move * + @FileName + 
\\ASKVTS01\Transmissions\outgoing\SWBV 
EXEC master. .xp_cmdshell @BCPCommand 

insert into 
25 MainSecurity.dbo.JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

values 

(getdateO, 0, 'SWB NSF file', Tile generated successfully.') 
30 drop table ##SWB_NSF 
end — create proc 
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Time Warner Cable PMT file generation 



************************************************ 

5 - RL 1 1/29/2000 : file generated with no example given 

- RL 01/05/2001 : switch from unions to cursor/print, format changes, batch by system, output 
directly to file 

- RL 01/09/2001 : added live $$ADD stuff 

RL 01/25/2001 : changed output file to go to ASKVTS01 
10 - RL 01/27/2001 : use QBTed value to choose records to process 

- RL 01/29/2001 : convert to stored procedure 

RL 02/03/2001 : correct for mixed payments (one payment, one service charge) 

- RL 02/10/2001 : prevent reporting of number <=0 ($1 payment, $1 svc chg) 
« RL 03/29/2001 : add datetime values to join conditions 

15 

use MainKiosk 
go 

drop proc pr_TWC_PMT 
20 go 

create proc pr_TWC_PMT 
as begin 

25 ~ temporary table overhead 
create table ##twc_pmt 
(id int identity, line char(40)) 

- batch by system number 
30 declare @SystemNbr char(4) 

file record count includes headers/trailers 
declare @FileRecordCount int 
declare @OutputPartl varchar(200) 
35 declare @OutputPart2 varchar(200) 

declare @FileOutputLine varchar(200) 
select @FileRecordCount = 0 

- batch totals 

40 declare @BatchDollar Amount float 
declare @BatchRecordCount int 
declare @DetailDollarAmount float 
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- variables for wire transfer at end of procedure 
declare @FileTotal float 
select @FileTotal = 0 
declare @WireOffset int 
5 if datename(dw,getdate()) in ('Thursday'/Friday') 
select @WireOffset = 4 

else 

select @WireOffset = 2 

10 -- begin with CSG specified $$ADD statement 
insert into ##twcjpmt (line) values 
('$$ADD ID=CAD1 AHL BID="S81 1 1AHL" ') 
insert into ##twc_pmt (line) values 

c r ) 

15 

declare @SystemNbrFetchStatus int 

declare SystemNbrCursor cursor for 
select distinct 

20 left(BillAccountNumber,4) as SystemNbr 

from 

BillDetailTransaction 

where 

Company AccountTypelD = 10 and 
25 QBTed= 10 

open SystemNbrCursor 

fetch from SystemNbrCursor into @SystemNbr 

30 select @SystemNbrFetchStatus - @@fetch_status 

while @SystemNbrFetchStatus = 0 
begin 

35 select @FileRecordCount = @FileRecordCount + 

select @BatchRecordCount = 0 
select @BatchDollarAmount = 0 

— record type 1 
40 Batch Header 

insert into ##twc_pmt (line) values 

( T 

+ - as RecordTypeCode, 
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@SystemNbr 

+ as CableSystemNumber, 

right('O r + cast(datepart(mm ? getDateO) as varchar(2)),2)+ 
right('0 ? + cast(datepart(dd ? getDateO) as varchar(2)) ? 2)+ 
cast(right(datepart(yy,getDateO) 5 2) as char(2)) 
+ - as DateOfTape, 



+ as CablePrinNumber, 
10 + ~ as CableAgentNumber, 



- as Filler 



) 



15 record type 5 

-- Detail 

declare DetailCursor cursor for 
select 

'5' 

20 + - as RecordTypeCode, 

max(bdt.BillAccountNvimber) 
+ as SubscriberAccountNumber, 

rightCO 1 + cast(datepart(mm 5 max(prt.DateTimeofPayment)) as varchar(2)),2)+ 
rightCO' + cast(datepart(dd ? max(prt.DateTimeofPayment)) as varchar(2)),2)+ 
25 cast(right(datepart(yy,m as char(2)) 

+ as TransactionDate, 

right('0000000' + cast(cast(round(((sum(prt.PaymentAmount) - 
max(bdt.ServiceAmt)) * 100),0) as int) as varchar(7)),7) 
+ -- as TransactionAmount, 
30 V 

as TransactionCode, 
as OutputPartl, 
- unique id (x8) goes here 

as Transactionldentifier, 

35 

as OutputPart2, 

(sum(prt.PaymentAmount) - max(bdt.ServiceAmt)) 
as DetailDollarAmount 

from 

40 BillDetailTransaction bdt ? 

PaymentRecordTransaction prt, 
BillPay bp 

where 



#273511 



25 



bdtKioskPCID = prt.KioskPCID and 
bdt.DateTimeofBillScan = prt.DateTimeofPayment and 
bdt.DateTimeofBillScan = bp.DateStamp and 
prt.DateTimeofPayment = bp.DateStamp and 
bp.BillDetaillD = bdt.BillDetaillD and 
bp.PaymentRecordID = prt.PaymentRecordID and 
bp.KioskPCID = prtKioskPCID and 
bdt.CompanyAccountTypeID = 10 and 
left(bdt.BillAccounfNumber,4) = @SystemNbr and 
bdt.QBTed=10 

group by 

bdt.BillDetaUID, bdt.KioskPCID 
having (sum(prt.PaymentAmount) - max(bdt.ServiceAmt)) > 0 

open DetailCursor 

fetch from DetailCursor into @OutputPartl, @OutputPart2, @DetailDollarAmount 

while @@fetch_status = 0 
begin 

select @FileRecordCount = @FileRecordCount + 1 

select @BatchRecordCount = @BatchRecordCount + 1 

select @BatcruOollar Amount = @BatchDollar Amount + @DetailDollarAmount 

select @FileOutputLine = @OutputPartl + right('00000000' + 

cast(@FileRecordCount as varchar(8)), 8) + @OutputPart2 

insert into ##twc_pmt (line) values (@FileOutputLine) 

fetch next from DetailCursor into @OutputPartl, @OutputPart2, 

@DetailDollarAmount 
end 

— record type 9 
~ Batch Trailer 

select @FileRecordCount = @FileRecordCount + 1 

insert into ##twc_pmt (line) values 

( 

*9' 

+ - as RecordTypeCode, 
@SystemNbr 

+ - as CableSystemNumber, 

right('000000000" + cast(@BatchRecordCount as varchar(9)),9) 
+ — as RecordCount, 

right('00000000000' + cast(cast(round((@BatchDollarAmount * 100),0) as int) 

as varchar(ll)),ll) 

+ - as NetDollarAmount, 
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+ - as CablePrinNumber, 
+ - as CableAgentNumber, 
as Filler 

) 

select @FileTotal = @FileTotal + @BatchDollarAmount 

close DetailCursor 
deallocate DetailCursor 



- don't forget to fetch the next one 
15 fetch next from SystemNbrCursor into @SystemNbr 

select @SystemNbrFetchStatus = @@fetch_status 

end 

close SystemNbrCursor 
20 deallocate SystemNbrCursor 

if (@FileRecordCount % 2) = 1 

insert into ##twc_pmt (line) values ( ? ! ) 

25 - write wire transfer number to table 
insert into 

MainSecurity.dbo.WireTransfers 

(Payee, WireDate, WireAmount, Comment) 

values 

30 (Time Warner', dateadd(day 5 @WireOffset,getdateO) ? @FileTotal 5 'Generated ' + 

convert(varchar,getdate(), 101)) 

— print temp table contents out to file 
declare @FIleName varchar(lOO) 
35 declare @BCPCommand varchar(200) 

select @FileName = ? c:\askHarris_TWC_PMTJ + replace(convert(varchar ? getdate(), 106), ' 
f /') + '-' + right('0' + cast(datepart(hh ? getdateO) as varchar(2)),2) + right(*0' + 
cast(datepart(mi,getdateO) as varchar(2)),2) + \rpt' 
40 select @BCPCommand = ? bcp "SELECT a.line + b.line FROM ##twc_pmt a, ##twc_pmt b 
where b.id = aid + 1 and (aid % 2) = 1 " queryout m + @FileName + IT /c' 
EXEC master..xp_cmdshell @BCPCommand 
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select @BCPCommand = 'move ' + @FileName + 

\\ASKVTS01\Transmissions\outgoing\TWCV 

EXEC master..xp_cmdshell @BCPCommand 

5 insert into 

MainSecurity.dboJobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

values 

(getdateO, 0, 'TWC PMT file', 'File generated successfully.') 

10 

drop table ##twc_pmt 
end — create proc 
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~ procedure to send mail by SMTP 



*********************************************** 
RL 02/27/2001 : file created from sp__OA* example and Bert's email.vbs 

5 -- RL 02/27/2001 : convert to stored procedure 

************************************************************************ 

~ example use: pr_sendmail @MailFrom, @MailTo, @MailCc, @MailSubject, @MailBody 
- - example use: pr_sendmail 
t sql@askharrisxom^ ! rlynch@servcompxom^ ! techs@askharris.com^ 

10 Test SubjectVThis is a test message/ 

__************************************************************************* 

use MainKiosk 
go 

15 

drop procedure pr_sendmail 
go 

create procedure pr_sendmail 
20 @MailFrom varchar(l 00) = 'SQLnotify@servcomp.com', 

@MailTo varchar(lOO) = 

@MailCc varchar(lOO) = 

@MailSubject varchar(lOO) = 

@MailBody varchar(1000) - " 
25 as begin 

if@MailTo = " 

goto BailOut 

30 ~ integer pointers for objects 
declare @objMessage int 
-- declare @obj Configuration int 

declare @ErrorValue int 
35 declare @src varchar(255), @desc varchar(255) 



— create obj Message 

exec @ErrorValue = sp_OAcreate 'CDO.Message', @objMessage out 
40 if @ErrorValue o 0 
begin 

print 'objMessage error' 

exec sp_OAGetErrorInfo @objMessage, @src out, @desc out 
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select En:or=convert(varbinary^ 
end 



/* 

5 — create obj Configuration 

exec @ErrorValue = sp_OAcreate 'CDO.Configuratiori, @obj Configuration out 
if@ErrorValue<>0 
begin 

print 'obj Configuration error 1 
10 exec sp_OAGetErrorInfo @obj Configuration, @src out, @desc out 

select Erroreonvert(varbinary^ 
end 

exec @Error Value = sp_0 AS etProperty @obj Configuration, 
1 5 Tields( n http://schemas.microsoftxom/cdo/configuration/smt^ 1 1 72. 1 6. 1 .7 

if @ErrorValue o 0 
begin 

print 'cdoSMTPServer error' 

exec sp_OAGetErrorInfo @obj Configuration, @src out, @desc out 
20 select Error-convert(varbinary^ 

end 

— set colFields values 

exec @ErrorValue = sp_0 AS etProperty @obj Configuration, 
25 Tields("http://schemas.micro^ ' 25, 
if @ErrorValue o 0 
begin 

print 'cdoSMTPServerPort error* 

exec sp_OAGetErrorInfo @obj Configuration, @src out, @desc out 
30 select Error=convert(varbin^ 

end 

-- set colFields values 

exec @Error Value - sp_0 AS etProperty @obj Configuration, 
35 Tields("http://schemas.microsoftxom/cdo/configuration/sendusing ! ^ 
if@ErrorValue<>0 
begin 

print 'cdoSendUsingMethod error' 

exec spJDAGetErrorlnfo @obj Configuration, @src out, @desc out 
40 select Eiror=convert(varbinary(4),@EirorValue),Source=@src,Descripti 

end 

set colFields values 
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exec @Err or Value = sp_0 ASetProperty @obj Configuration, 
Tields( M http://schemas.microsoftco '30' 
if@ErrorValue<>0 
begin 

5 print 'cdoSMTPConnectionTimeout error ! 

exec sp_OAGetErrorInfo @obj Configuration, @src out, @desc out 

select Eiror=convert(varbinary^ 

end 

10 - Update colFields 

exec @ErrorValue = spJDAMethod @obj Configuration, Tields.Update' 
if@ErrorValue<>0 
begin 

print f colFields.Update error 1 
15 exec sp_OAGetErrorInfo @obj Configuration, @src out, @desc out 

select Erroi^convert(varbinary(4) ? @ErrorValue),Source=@src,Description= 

end 

*/ 

20 — set objMessage values 

exec @ErrorValue = sp_OASetProperty @objMessage, 'From', @MailFrom 
if @ErrorValue o 0 
begin 

print 'objMessage.From error' 
25 exec sp_OAGetErrorInfo @objMessage, @src out, @desc out 

select Error-convert(varbinary(4),@ErrorValue),Source=@src,Descri 

end 

-- set objMessage values 
30 exec @ErrorValue = sp_OASetProperty @objMessage, To', @MailTo 
if @ErrorValue o 0 
begin 

print 'objMessage.To error* 

exec sp_OAGetErrorInfo @objMessage, @src out, @desc out 
35 select Error=convert(varbinary(4),@ErrorValue),Source=@src 5 Descripti 

end 

~ set objMessage values 

exec @ErrorValue = sp_0 ASetProperty @objMessage, 'Cc', @MailCc 
40 if@ErrorValue<>0 
begin 

print 'objMessage.Cc error' 

exec sp_OAGetErrorInfo @objMessage, @src out, @desc out 
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select Error=convert(varbinary(4),@^^ 
end 

— set objMessage values 

exec @ErrorValue = sp_OASetProperty @obj Message, 'Subject', @MailSubject 
if@ErrorValue<>0 
begin 

print ! objMessage.Subject error' 

exec sp_OAGetErrorInfo @objMessage, @src out, @desc out 

select Eiror=convert(varbina^ 

end 

— set objMessage values 

exec @ErrorValue = sp_OASetProperty @objMessage, 'TextBody', @MailBody 
if@ErrorValue<>0 
begin 

print ! objMessage.TextBody error' 

exec sp_OAGetErrorInfo @objMessage, @src out, @desc out 

select Error=convert(varbin^ 

end 

— set objMessage values 

exec @ErrorValue = sp_OASetProperty @objMessage, 'MIMEFormatted', True' 
if @ErrorValue o 0 
begin 

print 'objMessageMIMEFormatted error' 

exec sp_OAGetErrorInfo @objMessage, @src out, @desc out 

select Error-convert(varbinary^ 

end 

~ Update colFields 

exec @ErrorValue = sp_OAMethod @objMessage, 'Send' 
if@ErrorValue<>0 
begin 

print 'objMessage.Send error' 

exec sp_OAGetErrorInfo @objMessage, @src out, @desc out 

select Error=convert(varbina^ 

end 

destroy objMessage 
exec @ErrorValue = sp_OAdestroy @objMessage 
if@ErrorValue<>0 
begin 



print 'objMessage destroy error' 

exec sp_OAGetErrorInfo @objMessage, @src out, @desc out 

select Error=convert(varbinary(4),@ErrorValue),Source=@src J Description=@desc 

end 



BailOut: 



end — create proc 
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- Memo File Generator routine 

- depending on day of week 

**************************************** 

- RL 01/30/2001 : broke into separate companies, added day-of-week check 

- RL 02/04/2001 : copied from kiosk file generator 

use MainKiosk 
go 

- drop proc pr_memo_file_gen 



create proc pr_memo_file_gen 
as 

15 begin 

declare @WeekDay varchar(lO) 

select @WeekDay = datename(dw,getdate()) 

20 

do not run this process on Saturday or Sunday morning 
if @WeekDay in ('Sunday', 'Saturday') 
begin 
insert into 
25 MainSecurity.dbo.JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 
values 

(getdateO, -1, 'Memo Generator', 'ABORTED: Memo Generator should not run on ' + 
@WeekDay + V) 
30 goto finish 
end 

insert into MainSecurity.dbo.JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

35 values 

(getdateQ, 0, 'Memo Generator', '** Memo generation starting. **') 



- HL&P bills 
40 insert into MainSecurity.dbo.JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

values 

(getdateQ, 0, 'Memo Generator', 'Start HL&P Memo generation.') 
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exec pr_HLP_MEMO 

insert into MainSecurity.dbo. JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

5 values 

(getdateO, 0, 'Memo Generator', 'End HL&P Memo generation.') 

- CHW bills 

insert into MainSecurity.dbo. JobRC 
10 (DateTime, ReturnCode, JobTxt, TxtComment) 

values 

(getdateQ, 0, 'Memo Generator', 'Start CHW memo generation.') 



15 



20 



execpr_CHW_MEMO 

insert into MainSecurity.dbo JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

values 

(getdateQ, 0, 'Memo Generator', 'End CHW memo generation.') 



insert into MainSecurity.dbo. JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

values 

25 (getdateO, 0, 'Memo Generator', '** Memo generation completed. **') 

finish: 
return 

30 

end — create proc 
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- Memo Cutoff routine 

~ depending on day of week 

**************************************** 
5 RL 01/30/2001 : broke into separate companies, added day-of-week check 
RL 02/03/2001 : made from kiosk cutoff file 
RL 03/19/2001 : eliminate partial transactions 

- RL 03/29/2001 : add datetime values to join conditions 

10 use MainKiosk 
go 

drop proc pr_memo_cutoff 
go 

15 

create proc pr_memo_cutoff 
as 

begin 

20 declare @WeekDay varchar(l 0) 

select @WeekDay = datename(dw,getdate()) 

-- do not run this process if any records are in "to be processed/in process" status 
25 declare @TenCount int 

select @TenCount = isnull(count(*),0) from paymentrecordtransaction where qbted - 10 
select @TenCount = @TenCount + isnull(count(*),0) from billdetailtransaction where qbted 
-10 

30 select @TenCount = @TenCount + isnull(count(*),0) from cashvoucherissuedetailtransaction 
where qbted = 10 

select @TenCount - @TenCount + isnull(count(*),0) from returnedchecks where qbted = 10 

if@TenCount<>0 
35 begin 

insert into 

MainSecurity.dboJobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

values 

40 (getdateO, -1, 'Memo Cutoff, 'ABORTED: Kiosk Cleanup has not been run.') 

goto finish 
end 
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do not run this process on Saturday or Sunday morning 
if @WeekDay in ('Saturday', f Sunday f ) 
begin 
insert into 
5 MainSecurity.dboJobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 
values 

(getdateO, -1 , Memo Cutoff, 'ABORTED: Cutoff should not run on f + @WeekDay + 

V) 

10 goto finish 
end 



-- eliminate zero-amount payments 

update PaymentRecordTransaction 
15 set QBTed = 90 

where (QBTed is null or QBTed = 0 or QBTed = 15) and PaymentAmount = 0 



-- eliminate zero-company bills 

update BillDetailTransaction 
20 set QBTed = 90 

where (QBTed is null or QBTed = 0 or QBTed = 15) and CompanyAccountTypelD = 

0 



— eliminate partial transactions based on payments 
25 update PaymentRecordTransaction 

set QBTed = 90 
where rowguid in 

(select prt.rowguid 
from 

30 paymentrecordtransaction prt 

left join billpay bp on prt.paymentrecordid = bp.paymentrecordid and 
prtkioskpcid = bp.kioskpcid and prtDatetimeofPayment = bp.DateStamp 

left join billdetailtransaction bdt on bdt.billdetailid = bp.billdetailid and 
bdt.kioskpcid = bp.kioskpcid and bdt.DateTimeofBillScan = bp.DateStamp 
35 left join receiptbill rb on bp.billpayid = rb.billpayid and bp.kioskpcid = 

rb.kioskpcid and bp.DateStamp = rkDateStamp 

left join receiptdetailtransaction rdt on rb.receiptdetailid = 
rdt.receiptdetailid and rb.kioskpcid = rdt.kioskpcid and rb.DateStamp = 
rdt.DateTimeofReceiptIssue 
40 where 

(bp.billpayid is null or 
bdtbilldetailid is null or 
rb.receiptbillid is null or 
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rdtreceiptdetailid is null) and 
prtqbted is null) 

- eliminate partial transactions based on bills 
update BillDetailTransaction 
set QBTed = 90 
where rowguid in 

(select bdt.rowguid 

from 

billdetailtransaction bdt 

left join billpay bp on bdt.billdetailid = bp.billdetailid and bdt.kioskpcid 
= bp.kioskpcid and bdtDateTimeofBillScan = bp.DateStamp 

left join paymentrecordtransaction prt on prt.paymentrecordid = 
bp.paymentrecordid and prt.kioskpcid = bp.kioskpcid and prt.DateTimeofPayment - 
bp.DateStamp 

left join receiptbill rb on bp.billpayid = rb.billpayid and bp.kioskpcid = 
rb.kioskpcid and bp.DateStamp = rb.DateStamp 

left join receiptdetailtransaction rdt on rb.receiptdetailid = 
rdt.receiptdetailid and rb.kioskpcid = rdt.kioskpcid and rb.DateStamp = 
rdtDateTimeofReceiptlssue 
where 

(bp.billpayid is null or 
bdtbilldetailid is null or 
rb.receiptbillid is null or 
rdt.receiptdetailid is null) and 
1 prtqbted is null) 

- HL&P bills 

update BillDetailTransaction 
set QBTed =10 

where (QBTed is null or QBTed = 0) and CompanyAccountTypelD = 1 
insert into MainSecurity.dbo JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

values 

(getdate() 5 @@rowcount, Memo Cutoff, 'HL&P bill cutoff completed.') 

CHW bills 

update BillDetailTransaction 
set QBTed =10 

where (QBTed is null or QBTed = 0) and CompanyAccountTypelD = 4 
insert into MainSecurity.dbo.JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

values 



(getdateO, @@rowcount, 'Memo Cutoff, 'CHWbill cutoff completed.') 

insert into MainSecurity.dboJobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

5 values 

(getdateO, 0, 'Memo Cutoff, '** All bill cutoffs completed. **') 

finish: 
10 return 

end ~ create proc 
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-- Memo Cleanup routine 
-- depending on day of week 

********************^ 
5 RL 01/30/2001 : broke into separate companies, added day-of-week check 

- RL 02/03/2001 : made from memo cutoff file 

use MainKiosk 
go 

10 

— drop proc pr_memo_cleanup 

create proc pr_memo_cleanup 
as 

15 begin 

declare @WeekDay varchar(lO) 

select @WeekDay - datename(dw,getdateO) 

20 

do not run this process on Saturday nights 
if @WeekDay in ('Saturday', 'Sunday') 
begin 
insert into 
25 MainSecurity.dbo.JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 
values 

(getdate(), -1, 'Memo Cutoff, 'ABORTED: Cutoff should not run on' + @WeekDay - 

'-') 

30 goto finish 
end 



- HL&P bills 

35 update BillDetailTransaction 

setQBTed= 15 

where (QBTed = 10) and Company AccountTypelD = 1 
insert into MainSecurity.dbo.JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

40 values 

(getdate()> @@rowcount, 'Memo Cutoff, 'HL&P bill cutoff completed. 1 ) 

- CHW bills 
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update BillDetailTransaction 
setQBTed=15 

where (QBTed = 10) and Company AccountTypelD = 4 
insert into MainSecurity.dbo.JobRC 
5 (DateTime, ReturnCode, JobTxt, TxtComment) 

values 

(getdateQ, @@rowcount, 'Memo Cutoff, 'CHW bill cutoff completed.') 



10 insert into MainSecurity.dbo.JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

values 

(getdateO, 0, 'Memo Cutoff, '** All bill cutoffs completed. **') 

15 finish: 
return 

end - create proc 

20 
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- Kiosk next-day routine 
-- sets QBTedto30 

__**********************************^ 
-- RL 02/11/2001 : file created 

5 

use MainKiosk 
go 

- drop proc pr_kiosk_nextday 

10 

create proc pr_kiosk_nextday 
as 

begin 

15 update billdetailtransaction 
set QBTed = 30 
where QBTed = 20 

update paymentrecordtransaction 
20 set QBTed = 30 

where QBTed = 20 

update cashvoucherissuedetailtransaction 
set QBTed = 30 
25 where QBTed = 20 

update returnedchecks 
set QBTed = 30 
where QBTed = 20 

30 

end - create proc 
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-- Kiosk File Generator routine 

- depending on day of week 

*********************^^ 

5 

RL 01/30/2001 : broke into separate companies, added day-of-week check 

use MainKiosk 
go 

10 

- drop proc pr Jdosk_file_gen 

create proc pr Jdosk_file_gen 
as 

15 begin 

declare @WeekDay varchar(lO) 

select @WeekDay = datename(dw,getdate()) 

20 

- do not run this process on Saturday nights 
if @WeekDay = 'Saturday 1 

begin 
insert into 
25 MainSecurity.dbo.JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 
values 

(getdate(), -1 , 'File Generator 1 , 'ABORTED: File Generator should not run on Saturday.') 
goto finish 
30 end 

insert into MainSecurity.dbo.JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

values 

35 (getdateQ, 0, 'File Generator', '** File generation starting. ***) 



HL&P bills 

insert into MainSecurity.dbo.JobRC 
40 (DateTime, ReturnCode, JobTxt, TxtComment) 

values 

(getdateQ, 0, Tile Generator', 'Start HL&P file generation.') 
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print 'HLF 
- PMT 

exec pr_HLPJPMT 

exec pr_HLP_PMT_report 

5 --NSF 

exec pr JHLP_NSF 



insert into MainSecurity.dbo JobRC 
10 (DateTime, ReturnCode, JobTxt, TxtComment) 

values 

(getdateO, 0, 'File Generator', 'End HL&P file generation.') 

- Entex bills 

15 — do not process on Friday nights 
if @WeekDay o 'Friday 1 
begin 

insert into MainSecurity.dbo JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

20 values 

(getdateO, 0, Tile Generator', 'Start Entex file generation.') 

print 'Entex' 

- PMT 

25 exec pr_Entex JPMT 

exec pr_Entex JPMT jreport 

--NSF 

exec prJSntex_NSF 

30 insert into MainSecurity.dbo JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

values 

(getdateO? 0, 'File Generator', 'End Entex file generation.') 

end 

35 

- CHW bills 

- do not process on Sunday nights 
if @WeekDay o 'Sunday' 
begin 

40 insert into MainSecurity.dbo JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

values 

(getdateO, 0, Tile Generator', 'Start CHW file generation.') 
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print 'CHW 
-- PMT 

-NSF 

exec pr_CHW_PMT_NSF 
5 exec pr_CHW_PMT_report 

exec pr_CHW_NSF_report 

insert into MainSecurity.dbo.JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

10 values 

(getdateO, 0, 'File Generator', 'End CHW file generation.') 

end 



15 -- TWC bills 

- do not process on Sunday nights 
if @WeekDay o 'Sunday' 
begin 

insert into MainSecurity.dbo.JobRC 
20 (DateTime, ReturnCode, JobTxt, TxtComment) 

values 

(getdate(), 0, 'File Generator 1 , 'Start TWC file generation.') 

print 'TWC 
25 - PMT 

execpr_TWC_PMT 

exec pr_TWC_PMT_report 

-NSF 

exec pr_TWC_NSF 

30 

insert into MainSecurity.dbo.JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

values 

(getdateO, 0, "File Generator', 'End TWC file generation.') 

35 end 

-- Chase ACH file 
-- (including SWB bills) 
-- do not process on Sunday nights 
40 if @WeekDay o 'Sunday' 
begin 

insert into MainSecurity.dbo.JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 
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values 

(getdateO, 0, Tile Generator', 'Start Chase/SWB file generation.') 

print 'Chase' 
5 — PMT 

exec pr_Chase_ACH 

--NSF 

execpr_SWB_NSF 

10 insert into MainSecurity.dbo.JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

values 

(getdate(), 0, Tile Generator', 'End Chase/SWB file generation.') 

end 

15 

insert into MainSecurity.dbo.JobRC 

(DateTime, RetumCode, JobTxt, TxtComment) 

values 

(getdate(), 0, Tile Generator 1 , '** File generation completed. ** ! ) 

20 

finish: 
return 

25 end - create proc 
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- Kiosk Cutoff routine 

— depending on day of week 

5 — RL 01/30/2001 : broke into separate companies, added day-of-week check 

— RL 03/02/2001 : code to ignore zero-company bills 
« RL 03/19/2001 : code to remove partial transactions 

RL 03/29/2001 : add datetime values to join conditions 

10 use MainKiosk 
go 

drop proc pr Jdosk_cutoff 
go 

15 

create proc pr_kiosk_cutoff 
as 

begin 

20 declare @WeekDay varchar(l 0) 

select @WeekDay = datename(dw,getdate()) 

- do not run this process on Saturday nights 
25 if @WeekDay = 'Saturday 1 

begin 
insert into 

MainSecurity.dboJobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 
30 values 

(getdateO, -1, 'Kiosk Cutoff, 'ABORTED: Cutoff should not run on Saturday.') 
goto finish 
end 

35 — eliminate zero-amount payments 

update PaymentRecordTransaction 
set QBTed = 90 

where (QBTed is null or QBTed = 0 or QBTed = 15) and PaymentAmount = 0 

40 ~ eliminate zero-company bills 

update BillDetailTransaction 
set QBTed = 90 

where (QBTed is null or QBTed = 0 or QBTed =15) and CompanyAccountTypelD = 
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0 

~ eliminate partial transactions based on payments 
update PaymentRecordTransaction 
5 setQBTed = 90 

where rowguid in 

(select prt.rowguid 
from 

paymentrecordtransaction prt 
10 left join billpay bp on prtpaymentrecordid = bp.paymentrecordid and 

prt.kioskpcid = bp.kioskpcid and prtDateTimeofPayment = bp.DateStamp 

left join billdetailtransaction bdt on bdtbilldetailid = bp.billdetailid and 
bdtkioskpcid = bp.kioskpcid and bdt.DateTimeofBillScan = bp.DateStamp 

left join receiptbill rb on bp.billpayid = rb.billpayid and bp.kioskpcid = 
15 rb.kioskpcid and bp.DateStamp = rb.DateStamp 

left join receiptdetailtransaction rdt on rb.receiptdetailid = 
rdt.receiptdetailid and rb.kioskpcid = rdt.kioskpcid and rb.DateStamp = 
rdtDateTimeofReceiptlssue 
where 

20 (bp.billpayid is null or 

bdtbilldetailid is null or 
rb.receiptbillid is null or 
rdt.receiptdetailid is null) and 
prtqbted is null) 

25 

- eliminate partial transactions based on bills 
update BillDetailTransaction 
setQBTed = 90 
where rowguid in 
30 (select bdtrowguid 

from 

billdetailtransaction bdt 

left join billpay bp on bdtbilldetailid = bp.billdetailid and bdtkioskpcid 
= bp.kioskpcid and bdtDateTimeofBillScan = bp.DateStamp 
35 left join paymentrecordtransaction prt on prtpaymentrecordid = 

bp.paymentrecordid and prt.kioskpcid = bp.kioskpcid and prt.DateTimeofPayment = 
bp.DateStamp 

left join receiptbill rb on bp.billpayid = rb.billpayid and bp.kioskpcid = 
rb.kioskpcid and bp.DateStamp = rb.DateStamp 
40 left join receiptdetailtransaction rdt on rb.receiptdetailid = 

rdt.receiptdetailid and rb.kioskpcid = rdt.kioskpcid and rb.DateStamp = 
rdtDateTimeofReceiptlssue 
where 
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(bp.billpayid is null or 
bdt.billdetailid is null or 
rb.receiptbillid is null or 
rdtreceiptdetailid is null) and 
prt.qbted is null) 



- HL&P bills 

update BillDetailTransaction 
10 set QBTed =10 

where (QBTed is null or QBTed = 0 or QBTed =15) and Company AccountTypelD = 

1 

insert into MainSecurity.dbo JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

15 values 

(getdateO, @@rowcount, ! Kiosk Cutoff, 'HL&P bill cutoff completed. 1 ) 

~ Entex bills 

- do not process on Friday nights 
20 if @WeekDay o 'Friday' 

begin 

update BillDetailTransaction 
set QBTed = 10 

where (QBTed is null or QBTed = 0 or QBTed =15) and CompanyAccountTypelD in 



25 (2,9) 



insert into MainSecurity.dbo JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

values 

(getdateQ, @@rowcount, 'Kiosk Cutoff, 'Entex bill cutoff completed.') 



30 end 



- CHW bills 

- do not process on Sunday nights 
if @WeekDay o 'Sunday' 

35 begin 

update BillDetailTransaction 
set QBTed =10 

where (QBTed is null or QBTed = 0 or QBTed = 15) and CompanyAccountTypelD 

4 

40 insert into MainSecurity.dbo JobRC 

(DateTime, ReturnCode, JobTxt 5 TxtComment) 

values 

(getdateO, @@rowcount, 'Kiosk Cutoff, 'CHW bill cutoff completed/) 
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end 



TWC bills 
5 do not process on Sunday nights 
if @WeekDay o 'Sunday 
begin 

update BillDetailTransaction 
set QBTed =10 

10 where (QBTed is null or QBTed = 0 or QBTed =15) and CompanyAccountTypelD = 

10 

insert into MainSecurity.dbo JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

values 

15 (getdateO, @@rowcount, r Kiosk Cutoff, TWC bill cutoff completed/) 

end 

~ SWB bills 

— do not process on Sunday nights 
20 if @WeekDay o 'Sunday' 

begin 

update BillDetailTransaction 
set QBTed = 10 

where (QBTed is null or QBTed = 0 or QBTed =15) and CompanyAccountTypelD = 

25 3 

insert into MainSecurity.dbo JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

values 

(getdateO, @@rowcount, 'Kiosk Cutoff, 'SWB bill cutoff completed.') 

30 end 

— Payments (for Chase ACH) 

— do not process on Sunday nights 
if @WeekDay o 'Sunday' 

35 begin 

update PaymentRecordTransaction 
set QBTed =10 

where (QBTed is null or QBTed = 0) 
insert into MainSecurity.dbo.JobRC 
40 (DateTime, ReturnCode, JobTxt, TxtComment) 

values 

(getdate()> @@rowcount, 'Kiosk Cutoff, 'Chase payment cutoff completed. 1 ) 
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update CashVoucherlssueDetailTransaction 
set QBTed =10 

where (QBTed is null or QBTed = 0) 
insert into MainSecurity.dboJobRC 
5 (DateTime, ReturnCode, JobTxt, TxtComment) 

values 

(getdateO, @@rowcount, 'Kiosk Cutoff, 'Cash voucher cutoff completed.') 

update RetumedChecks 
10 set QBTed =10 

where (QBTed is null or QBTed = 0) 
insert into MainSecurity.dboJobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

values 

15 (getdate(), @@rowcount, ! Kiosk Cutoff, 'Chase NSF cutoff completed.') 

end 

insert into MainSecurity.dboJobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

20 values 

(getdateO, 0, 'Kiosk Cutoff, '** All bill cutoffs completed. **') 

finish: 
25 return 



end — create proc 
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- Kiosk Cleanup routine 

~ depending on day of week 

5 - RL 01/30/2001 : broke into separate companies, added day-of-week check 

- RL 03/09/2001 : removed day-of-week check 

use MainKiosk 
go 

10 

- drop proc pr_kiosk_cleanup 

create proc pr Jciosk_cleanup 
as 

15 begin 

insert into 

MainSecurity.dboJobRC 
(DateTime, ReturnCode, JobTxt, TxtComment) 
20 values 

(getdate(), 0, 'Kiosk Cleanup', '** Kiosk Cleanup started. **') 

- HL&P bills 

update BillDetailTransaction 
25 setQBTed = 20 

where (QBTed =10) and Company AccountTypelD = 1 
insert into MainSecurity.dboJobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

values 

30 (getdate(), @@rowcount, 'Kiosk Cleanup', 'HL&P bill cleanup completed.') 

HL&P NSF checks 

update ReturnedChecks 
set QBTed = 20 
35 where (QBTed =10) and rowguid in 

(select rc.rowguid 
from 

ReturnedChecks rc 

join BillPay bp on rc.PaymentRecordID = bp.PaymentRecordID and 
40 rc.KioskPCID = bp.KioskPCID 

join BillDetailTransaction bdt on bp.BillDetaillD = bdt.BillDetaillD and 
bp.KioskPCID = bdtKioskPCID 
where 
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bdt.CompanyAccountTypeID = 1) 
insert into MainSecurity.dbo JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

values 

5 (getdateQ, @@rowcount, 'Kiosk Cleanup', 'HL&P NSF cleanup completed. 1 ) 



— Entex bills 

— do not process on Friday nights 
10 update BillDetailTransaction 

set QBTed = 20 

where (QBTed =10) and CompanyAccountTypelD in (2,9) 
insert into MainSecurity.dbo JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

15 values 

(getdateO, @@rowcount, 'Kiosk Cleanup', 'Entex bill cleanup completed.') 

— Entex NSF checks 

update ReturnedChecks 
20 set QBTed = 20 

where (QBTed = 10) and rowguid in 

(select rc.rowguid 

from 

ReturnedChecks rc 

25 join BillPay bp on rc.PaymentRecordID = bp.PaymentRecordID and 

rc.KioskPCID = bp.KioskPCID 

join BillDetailTransaction bdt on bp.BillDetaillD = bdtBillDetaillD and 
bp.RioskPCID = bdt.KioskPCID 
where 

30 bdtCompanyAccountTypelD in (2,9)) 

insert into MainSecurity.dbo JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

values 

(getdateO* @@rowcount, 'Kiosk Cleanup', 'Entex NSF cleanup completed.') 

35 



- CHW bills 

— do not process on Sunday nights 

update BillDetailTransaction 
40 set QBTed = 20 

where (QBTed = 10) and CompanyAccountTypelD = 4 
insert into MainSecurity.dbo JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 
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values 

(getdateQ, @@rowcount, f Kiosk Cleanup 1 , 'CHW bill cleanup completed. 1 ) 



CHWNSF checks 
5 update ReturnedChecks 

set QBTed - 20 

where (QBTed =10) and rowguid in 

(select rc.rowguid 

from 

10 ReturnedChecks rc 

join BillPay bp on rc.PaymentRecordID = bp.PaymentRecordID and 
rc.KioskPCID = bp.KioskPCID 

join BillDetailTransaction bdt on bp.BillDetaillD = bdt.BillDetailID and 
bp.KioskPCID = bdt.KioskPCID 
15 where 

bdtCompanyAccountTypelD = 4) 
insert into MainSecurity.dbo JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

values 

20 (getdateQ, @@rowcount, 'Kiosk Cleanup 1 , 'CHWNSF cleanup completed.') 



TWC bills 
— do not process on Sunday nights 
25 update BillDetailTransaction 

set QBTed = 20 

where (QBTed =10) and Company AccountTypelD = 10 
insert into MainSecurity.dbo. JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

30 values 

(getdate(), @@rowcount, f Kiosk Cleanup', 'TWC bill cleanup completed/) 

TWC NSF checks 

update ReturnedChecks 
35 set QBTed = 20 

where (QBTed =10) and rowguid in 

(select rc.rowguid 

from 

ReturnedChecks rc 

40 join BillPay bp on rc.PaymentRecordID = bp.PaymentRecordID and 

rc.KioskPCID = bp.KioskPCID 

join BillDetailTransaction bdt on bp.BillDetaillD = bdtBillDetaillD and 
bp.KioskPCID = bdt.KioskPCID 
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where 

bdt Company AccountTypelD =10) 

insert into MainSecurity.dbo JobRC 
5 (DateTime, ReturnCode, JobTxt, TxtComment) 

values 

(getdateO, @@rowcount, 'Kiosk Cleanup', TWC NSF cleanup completed/) 

SWB bills 

10 — do not process on Sunday nights 

update CompanyAccountTypeMaster 

set Notes = cast((cast(Notes as int) + 1) as varchar) 

where Company AccountTypelD = 3 

15 insert into MainSecurity.dbo JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

values 

(getdateO, @@rowcount, 'Kiosk Cleanup', 'SWB EDI control number updated.') 

20 update BillDetailTransaction 

set QBTed = 20 

where (QBTed =10) and CompanyAccountTypelD = 3 
insert into MainSecurity.dbo.JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

25 values 

(getdate(), @@rowcount, 'Kiosk Cleanup', 'SWB bill cleanup completed.') 

update ReturnedChecks 
set QBTed = 20 
30 where (QBTed = 10) and rowguid in 

(select rc.rowguid 
from 

ReturnedChecks rc 

join BillPay bp on rc.PaymentRecordID = bp.PaymentRecordID and 
35 rc.KioskPCID = bp.KioskPCID 

join BillDetailTransaction bdt on bp.BillDetaillD = bdtBillDetaillD and 
bp.KioskPCID - bdt.KioskPCID 
where 

bdt. CompanyAccountTypelD = 3) 
40 insert into MainSecurity.dbo.JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

values 

(getdateO, @@rowcount, 'Kiosk Cleanup', 'SWB NSF cleanup completed.') 
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- Chase payments 

- do not process on Sunday nights 

update PaymentRecordTransaction 
set QBTed = 20 
5 where (QBTed -10) 

insert into MainSecurity.dbo.JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

values 

(getdateO, @@rowcount, 'Kiosk Cleanup', 'Chase payment cleanup completed. 1 ) 

10 

update CashVoucherlssueDetailTransaction 
set QBTed -20 
where (QBTed = 10) 
insert into MainSecurity.dbo.JobRC 
15 (DateTime, ReturnCode, JobTxt, TxtComment) 

values 

(getdateO, @@rowcount ? 'Kiosk Cleanup', 'Cash voucher cleanup completed.') 

insert into MainSecurity.dbo.JobRC 
20 (DateTime, ReturnCode, JobTxt, TxtComment) 

values 

(getdateO, 0, 'Kiosk Cleanup', '** All bill cleanups completed. **') 

finish: 

25 

return 

end - create proc 

30 



#273511 



56 



HL&P PMT report 
- Human readable report with receipt info 



5 

— RL 01/10/2001 : created query for example report 
-~ RL 01/20/2001 : revised to report format 

« RL 01/25/2001 : send output to text file on ASKVTS01 

— RL 01/27/2001 : use QBTed value to choose records to process 
10 - RL 01/29/2001 : convert to stored procedure 

— RL 03/03/2001 : catch up with changes to PMT file and display total at bottom of report 

— RL 03/29/2001 : add datetime values to join conditions 

use MainKiosk 
15 go 

drop proc pr_HLP JPMTjreport 
go 

20 create proc pr_HLP_PMT_report 
as begin 

— overhead for file creation 
create table ##HLP_PMT 

25 (id int identity, OutputLine varchar(200)) 
delete from ##HLP_PMT 
declare @FileName varchar(lOO) 

select @FileName = 'c:\asldIarris_HLPJPMThumanJ + replace(convert(varchar, getdate(), 
30 106), ' ' /') + + right('0' + cast(datepart(hh,getdate()) as varchar(2)),2) + rightCO 1 + 
cast(datepart(mi ? getdateO) as varchar(2)),2) + '.txt' 



declare @OutputLine varchar(200) 
35 declare @FileTotal money 
declare @PayID int 
declare @KioskPCID int 

select @FiIeTotal = 0 

40 

insert into ##HLP_PMT (OutputLine) 
values (") 

insert into ##HLP_PMT (OutputLine) 
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values ('askHarris.com') 
insert into ##HLP_PMT (OutputLine) 
values ('PAYMENT REPORT) 
insert into ##HLP_PMT (OutputLine) 
5 values ('for Reliant HL&P') 

insert into ##HLP_PMT (OutputLine) 

values ('Generated ' + convert(varchar, getdateO)) 

insert into ##HLP_PMT (OutputLine) 

values (") 

10 insert into ##HLP_PMT (OutputLine) 

values ('Date Account # Amount Name TDL# Store Term 

Receipt') 

insert into ##HLP_PMT (OutputLine) 
values 



15 



c- 



- get list of multi-pay payment records, with totals for each multi-pay 

- treat single-pay as a type of multipay, with MultiPaySetCount of 1 
20 declare @MultiPayFetchStatus int 

declare @MultiPayBillID int 
declare @ReportedPayment float 

declare MultiPaySet cursor for 
25 select 

prtPaymentRecordlD as PaylD, 
prt.KioskPCID as KioskPCID 

from 

BillDetailTransaction bdt 
30 join BillPay bp on bp.KioskPCID = bdtKioskPCID and bp.BillDetaillD = 

bdt.BillDetailID and bp.DateStamp = bdt.DateTimeofBillScan 

join PaymentRecordTransaction pit on bp.KioskPCID = prt.KioskPCID and 
prt.PaymentRecordID = bp.PaymentRecordid and prt.DateTimeofPayment = bp.DateStamp 
JOIN MainSecurity.dbo.KioskPCInfo kpc on bdtKioskPCID = kpc.KioskPCID 
35 JOIN MainSecurity.dbo.KiosklnfoMaster kim on kim.KiosklnfoID = kpc.KioskID 

JOIN MainSecurity.dbo.StoreChainProfileMaster scp on kim.StoreChainProfilelD = 
scp. StoreChainProfilelD 

JOIN MainSecurity.dbo.StoreMaster sm on kim.StorelD — sm.StorelD 

where 

40 bdt Company AccountTypelD = 1 and 

bdtQBTed=10 
group by 

prtpaymentrecordid, prt.KioskPCID 
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order by 

prtKioskPCID, 

count(distinct bp.billdetailid) desc 



5 ~ loop over payment records 
— this is the batch loop 
open MultiPaySet 
fetch from MultiPaySet 
into @PayID, @KioskPCID 
10 select @MultiPayFetchStatus = @@fetch__status 

while @MultiPayFetchStatus = 0 
begin 

15 - for each payment record, get bill records 

— and data to report to PMT file 
declare @PaymentRecordFetchStatus int 
declare PaymentRecordSet cursor for 
select 

20 convert(char(10), bdt.DateTimeofBillScan, 101) 

+ • ■ + 

left(bdt3illAccountNumber, 1 3) 
case bdt.BillDetailID 

25 when @MultiPayBillID then convert(char(12) ? isnull(bdt.AptPayAmt, 

prt.PaymentAmount),0) 

else convert(char(12) ? (isnull(bdt.AptPayAmt, prt.PaymentAmount) - 
bdt.ServiceAmt) ? 0) 
end 

30 +' '+ 

cas^replace^snullfcitName, 1 [Cash Payment] '$', ' ? ) as char(30)) 
+ ' ' + 

left(isnull(cit.IdentificationNumber ? 1 %8) 

35 cast(upper(left(scp.StoreChainName ? 4)) as char(4)) + ' 1 + 

cast(right(sm.StoreName,3) as char(3)) 

right('0000' + cast(prtKioskPCID as varchar(4)) ? 4) 
+ ' • + 

40 rdt.ReceiptNumber, 

bdtBillDetaillD as MultiPayBilllD, 
case bdtBillDetaillD 

when @MultiPayBillID then isnull(bdt.AptPayAmt, prt.PaymentAmount) 
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else isnull(bdt.AptPayAmt ? prt.PaymentAmount) - bdt. Service Amt 
end as ReportedPayment 

from 

PaymentRecordTransaction prt 
5 join BillPay bp on prt.PaymentRecordID = bp.PaymentRecordID and 

prt.KioskPCID = bp.KioskPCID and prt.DateTimeofPayment = bp.DateStamp 

join BillDetailTransaction bdt on bdt.BillDetailID = bp.BillDetaillD and 
bdt.RioskPCID = bp.KioskPCID and bdt.DateTimeofBillScan = bp.DateStamp 

join ReceiptBill rb on rb.KioskPCID = bp.KioskPCID and rb.BillPayld = 
10 bp.BillPayID and rb.DateStamp = bp.DateStamp 

join ReceiptDetailTransaction rdt on rdt.KioskPCID = rb.KioskPCID and 
rdt.ReceiptDetaillD = rb.ReceiptDetaillD and rdt.DateTimeofReceiptIssue = rb.DateStamp 
join MainSecurity.dbo.KioskPCInfo kpc on kpc.KioskPCID = prt.KioskPCID 
join MainSecurity .dbo.KiosklnfoMaster kim on kpc.KioskID - kim.KiosklnfoID 
15 join MainSecurity .dbo. StoreChainProfileMaster scp on kim.StoreChainProfileID 

= scp.StoreChainProfilelD 

join MainSecurity . dbo. StoreMaster sm on sm.StorelD = kim.StorelD 
left join CustomerldentificationTransaction cit on citCustomerldentificationID 
= prt.CustomerldentificationID and cit.CheckingAccountNumberl 
20 prt.CheckingAccountNumber 
where 

prt.paymentrecordid = @PayID and 
prtKioskPCID = @KioskPCID and 
bdtCompanyAccountTypelD = 1 and 
bdt.QBTed=10 
order by bdtkioskpcid, bdt.billdetailid 

open PaymentRecordSet 
fetch from PaymentRecordSet 

into @OutputLine, @MultiPayBillID, @ReportedPayment 
select @PaymentRecordFetchStatus = @@fetch_status 

while @PaymentRecordFetchStatus = 0 
begin 

if @ReportedPayment > 0 
begin 

— write actual record to file 
insert into ##HLP JPMT (OutputLine) 
values 

(@OutputLine) 

select @FileTotal = @FileTotal + @ReportedPayment 



25 



30 



35 



40 
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end 



— don't forget to fetch the next one 
fetch from PaymentRecordSet 
5 into @OutputLine 5 @MultiPayBillID ? @ReportedPayment 

select @PaymentRecordFetchStatus = @@fetch_status 

end 

10 close PaymentRecordSet 

deallocate PaymentRecordSet 

— don't forget to fetch the next one 
fetch next from MultiPaySet 
15 into @PayID, @KioskPCID 

select @MultiPayFetchStatus = @@fetch_status 

end 

20 close MultiPaySet 

deallocate MultiPaySet 

insert into ##HLP_PMT (OutputLine) 
values 

25 C -) 
insert into ##HLP_PMT (OutputLine) 
values 

(' Payment Total: ! + convert(char(l 2), @FileTotal)) 

30 

- print contents of temp table to disk file 
declare @BCPCommand varchar(200) 

select @BCPCommand = 'bcp "SELECT OutputLine FROM ##HLP_PMT order by id" 
queryout m + @FileName + m /T /c' 
35 EXEC master. .xp_cmdshell @BCPCommand 

select @BCPCommand = 'move ' + @FileName + 1 

\\ASKVTS01\Transmissions\outgoing\HLP\' 

EXEC master..xp_cmdshell @BCPCommand 



insert into 

MainSecurity.dboJobRC 
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(DateTime, ReturnCode, JobTxt, TxtComment) 

values 

(getdateO, 0, 'HLP PMT report', 'Report generated successfully.') 

drop table ##HLP_PMT 
end « create proc 
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— Kiosk Backup routine (reverses cleanup process) 
-- depending on day of week 

5 — RL 01/30/2001 : broke into separate companies, added day-of-week check 
» RL 02/09/2001 : made from kiosk cleanup file 

use MainKiosk 
go 

10 

— drop proc prjdoskjmckup 

create proc prjdoskjmckup 
as 

15 begin 

declare @WeekDay varchar(10) 

select @WeekDay = datename(dw,getdateQ) 

20 

— do not run this process if any records are in "to be processed/in process" status 
declare @TenCount int 

select @TenCount = isnull(count(*),0) from paymentrecordtransaction where qbted =10 
25 select @TenCount = @TenCount + isnull(count(*),0) from billdetailtransaction where qbted 
= 10 

select @TenCount = @TenCount + isnull(count(*),0) from cashvoucherissuedetailtransaction 
where qbted =10 

select @TenCount = @TenCount + isnull(count(*),0) from returnedchecks where qbted =10 

30 

if@TenCount<>0 

begin 

insert into 

MainSecurity.dboJobRC 
35 (DateTime, ReturnCode, JobTxt, TxtComment) 

values 

(getdate(), -1, 'Kiosk Backup', 'ABORTED: Kiosk Cleanup has not been run.') 
goto finish 
end 

40 

insert into 

MainSecurity.dboJobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 
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values 

(getdate(), 0, 'Kiosk Backup 1 , '** Kiosk Backup started. **') 



-HL&P bills 
5 update BillDetailTransaction 

set QBTed = 10 

where (QBTed = 20) and CompanyAccountTypelD = 1 
insert into MainSecurity.dbo JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

10 values 

(getdate(), @@rowcount 5 'Kiosk Backup 1 , 'HL&P bill backup completed.') 

- HL&P NSF checks 

update ReturnedChecks 
15 set QBTed =10 

where (QBTed = 20) and rowguid in 

(select rc.rowguid 

from 

ReturnedChecks rc 

20 join BillPay bp on rc.PaymentRecordID = bp.PaymentRecordID and 

rcKioskPCID - bp.KioskPCID 

join BillDetailTransaction bdt on bp.BillDetaillD = bdtBillDetaillD and 
bp.KioskPCID = bdt.KioskPCID 
where 

25 bdtCompanyAccountTypelD = 1) 

insert into MainSecurity.dbo JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

values 

(getdateO, @@rowcount, 'Kiosk Backup', 'HL&P NSF backup completed.') 

30 



— Entex bills 

— do not process on Friday nights 
if @WeekDay o 'Friday' 

35 begin 

update BillDetailTransaction 
set QBTed = 10 

where (QBTed = 20) and CompanyAccountTypelD in (2,9) 
insert into MainSecurity.dbo.JobRC 
40 (DateTime, ReturnCode, JobTxt, TxtComment) 

values 

(getdateQ, @@rowcount, 'Kiosk Backup', 'Entex bill backup completed.') 
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— Entex NSF checks 

update RetumedChecks 
set QBTed =10 

where (QBTed = 20) and rowguid in 
5 (select rc.rowguid 

from 

RetumedChecks rc 

join BillPay bp on raPaymentRecordID = bp.PaymentRecordID and 
rc.KioskPCID = bp.KioskPCID 
10 join BillDetailTransaction bdt on bp.BillDetaillD = bdtBillDetaillD and 

bp.KioskPCID = bdt.KioskPCID 
where 

bdt.CompanyAccountTypeID in (2,9)) 
insert into MainSecurity.dbo.JobRC 
15 (DateTime, RetuniCode, JobTxt, TxtComment) 

values 

(getdate() 5 @@rowcount, 'Kiosk Backup 1 , 'Entex NSF backup completed.') 

end 

20 

« CHW bills 

— do not process on Sunday nights 
if @WeekDay o 'Sunday' 
begin 

25 update BillDetailTransaction 

set QBTed =10 

where (QBTed = 20) and CompanyAccountTypelD = 4 
insert into MainSecurity.dbo.JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

30 values 

(getdate() ? @@rowcount, 'Kiosk Backup', ! CHW bill backup completed/) 

— CHW NSF checks 

update RetumedChecks 
35 set QBTed =10 

where (QBTed = 20) and rowguid in 

(select rc.rowguid 

from 

RetumedChecks rc 

40 join BillPay bp on rc.PaymentRecordID = bp.PaymentRecordID and 

rcKioskPCID = bp.KioskPCID 

join BillDetailTransaction bdt on bp.BillDetaillD = bdtBillDetaillD and 
bp.KioskPCID = bdtKioskPCID 
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where 

bdtCompanyAccountTypelD = 4) 
insert into MainSecurity.dboJobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

5 values 

(getdateQ, @@rowcount, 'Kiosk Backup 1 , ? CHWNSF backup completed/) 



10 

- TWC bills 

- do not process on Sunday nights 
if @WeekDay o 'Sunday 1 
begin 

15 update BillDetailTransaction 

set QBTed = 10 

where (QBTed = 20) and CompanyAccountTypelD = 10 
insert into MainSecurity.dboJobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

20 values 

(getdate(), @@rowcount, 'Kiosk Backup 1 , TWC bill backup completed.') 

- TWCNSF checks 

update ReturnedChecks 
25 set QBTed =10 

where (QBTed = 20) and rowguid in 

(select rc.rowguid 

from 

ReturnedChecks rc 

30 join BillPay bp on rc.PaymentRecordID = bp.PaymentRecordID and 

rc.KioskPCID - bp.KioskPCID 

join BillDetailTransaction bdt on bp.BillDetaillD = bdtBillDetaillD and 
bp.KioskPCID = bdt.KioskPCID 
where 

35 bdtCompanyAccoimtTypelD = 10) 

insert into MainSecurity.dboJobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

values 

(getdateO, @@rowcount, 'Kiosk Backup', 'TWC NSF backup completed.') 

40 

end 

- SWB bills 
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do not process on Sunday nights 
if @WeekDay o 'Sunday' 
begin 

update Company AccountTypeMaster 
5 set Notes = cast((cast(Notes as int) - 1) as varchar) 

where Company AccountTypelD = 3 

insert into MainSecurity.dbo.JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

10 values 

(getdateO, @@rowcount, 'Kiosk Backup', f S WB EDI control number changed.') 

update BillDetailTransaction 
set QBTed =10 

15 where (QBTed = 20) and CompanyAccountTypelD = 3 

insert into MainSecurity.dbo JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

values 

(getdateO, @@rowcount, ! Kiosk Backup', 'SWB bill backup completed. 1 ) 

20 

update ReturnedChecks 
set QBTed =10 

where (QBTed = 20) and rowguid in 
(select rc.rowguid 
25 from 

ReturnedChecks rc 

join BillPay bp on rc.PaymentRecordID = bp.PaymentRecordID and 

rc.KioskPCID = bp.KioskPCID 

join BillDetailTransaction bdt on bp.BillDetaillD = bdt.BillDetaillD and 

30 bp.KioskPCID = bdt.KioskPCID 
where 

bdt.Company AccountTypelD = 3) 
insert into MainSecurity.dbo.JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

35 values 

(getdateQ, @@rowcount, 'Kiosk Backup 1 , 'SWB NSF backup completed. ) 



end 



40 -- Chase payments 

- do not process on Sunday nights 
if @WeekDay o 'Sunday' 
begin 
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update PaymentRecordTransaction 
setQBTed=10 
where (QBTed = 20) 
insert into MainSecurity.dboJobRC 
5 (DateTime, ReturnCode, JobTxt, TxtComment) 

values 

(getdateO? @@rowcount, f Kiosk Backup', 'Chase payment backup completed.') 

update CashVoucherlssueDetailTransaction 
10 setQBTed=10 

where (QBTed = 20) 

insert into MainSecurity.dboJobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

values 

15 (getdateO, @@rowcount, 'Kiosk Backup', 'Cash voucher backup completed.') 

end 

insert into MainSecurity.dboJobRC 
20 (DateTime, ReturnCode, JobTxt, TxtComment) 

values 

(getdateQ, 0, 'Kiosk Backup', f ** All bill backups completed. **') 



25 



finish: 
return 

end - create proc 



30 



#273511 



68 



- HL&P PMT 



AG & RL 1 1/25/2000 : insert detail records to HLP_PMT table 
5 - RL 12/01/2000 : built for multi-pay processing 

RL 12/02/2000 : modified to generate full PMT file (for all payments) 
RL 01/03/2001 : batch on KioskPCID, report store info in file 

- RL 01/04/2001 : correct totals (over by svc dig, multi-pay) 
RL 01/08/2001 : revise for MEMO file 

10 - RL 01/1 1/2001 : change multi-pay division method (from even split to proportional) 

- RL 01/25/2001 : change multi-pay reporting to match database change (AptPayAmt and 
ServiceAmt fields) 

- RL 01/25/2001 : write output to text file in its place on ASKVTS01 

- RL 01/27/2001 : use QBTed value to choose records to process 
15 - RL 01/29/2001 : copy file, convert to stored procedures 

~ RL 02/10/2001 : prevent double-subtraction of service chanrge on mixed payments 
-- RL 02/10/2001 : prevent reporting of numbers <=0 ($1 payment - $1 svc chg) 

- RL 02/15/2001 : rearrange figuring of totals (accumulate from detail instead of computing 
separately) 

20 ~ RL 02/26/2001 : make wire transfer write depend on file type 

- RL 03/29/2001 : add datetime values to join conditions 

m ******************************** ************************************** 

use MainKiosk 
25 go 

drop proc prJHLPJPMT 
go 

30 create proc pr_HLP_PMT 
as begin 

- overhead for file creation 
create table ##HLP_PMT 

35 (id int identity, OutputLine varchar(200)) 
delete from ##HLP_PMT 
declare @FileName varchar(lOO) 

« is this a PMT or MEMO file? 
40 declare @FileType varchar(4) 
select @FileType = 'PMT* 
-select @FileType = 'MEMO 1 
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-\\ASKVTS01\Transmissions\outbound\HLP 



select @FileName = 'c:\askHarris_HLPJ + @FileType + 'J + replace(convert(varchar ? 
getdateO, 106), ' ' ,") + '-' + right('0' + cast(datepart(hh,getdateO) as varchar(2)),2) + right(*0' + 
5 cast(datepart(mi ? getdateO) as varchar(2)),2) + \rpt' 

— values for each payment reported 

declare @PayID int - payment id 

declare @MultiPay SetCount int - number of bills attached to payment 

10 declare @KioskPCID int ~ kiosk where payment was entered 

declare @TotalServiceCharge float ~ service charge for the set of bills 

declare @TotalAmountBilled float - total amount of bills, including service charge 
declare @TotalAmountPaid float — total amount of bills without service charge 

15 - parts of the output record 

— the multi-pay flag and sequence number go between these parts 
declare @OutputPartl varchar(200) 

declare @OutputPart2 varchar(200) 
declare @OutputPart3 varchar(200) 

20 

— multi-pay flag parts 

— loopl is the ASCII code for the alphabetic portion 

— loop2 if the numeric part 
declare @mploopl int 

25 declare @mploop2 int 

declare @MultiPayFlag char(3) 
declare @StoreID char(9) 

— sequence number for lines in the PMT file 
30 declare @SequenceNumber int 

select @SequenceNumber = 0 

— accumulators for batch and file totals and counts 
declare @BatchRecordCount int 

35 declare @BatchTotal float 
declare @FileTotal float 
declare @BatchKiosk int 

select 

40 @BatchRecordCount = 0 S 

@BatchTotal = 0, 
@FileTotal = 0 
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- variables for wire transfer 
declare @WireOffset int 
if datename(dw,getdateO) in ('ThursdayVFriday') 
select @WireOffset = 4 

5 else 

select @WireOffset = 2 



insert file header record 
10 - this record will be updated with the real file header later 
insert into ##HLP_PMT (OutputLine) 
values 

( 

'FILE HEADER' 
15 +* , + 'ASK , + " + '01' + " + 
case @FileType 
when TMT' then 'PRD' 
when 'MEMO' then 'MEM' 
end 

20 -- TST : Testing 

-- PRD : Production 
+ ' ' + 

'0000 1' ~ sequence number 
+ " + 

25 cast(datepart(yy,getDateO) as char(4))+ 

right('0' + cast(datepart(mm,getDate()) as varchar(2)),2)+ 
right('0' + cast(datepart(dd,getDate()) as varchar(2)),2) 
) 

30 select @SequenceNumber = @SequenceNumber + 1 

- get list of multi-pay payment records, with totals for each multi-pay 

— treat single-pay as a type of multipay, with MultiPaySetCount of 1 
declare @MultiPayFetchStatus int 

35 declare @MultiPayBillID int 

declare @ReportedPayment float 

declare MultiPaySet cursor for 
select 

40 prt.PaymentRecordID as PaylD, 

prt.KioskPCID as KioskPCID, 

cast(upper(left(max(scp.StoreChainName) ? 4)) as char(4)) 

+ ! 1 + cast(right(max(sm.StoreName),3) as char(3)) as StorelD 
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from 

BillDetailTransaction bdt 

join BillPay bp on bp.KioskPCID = bdt.KioskPCID and bp.BillDetaillD = 
bdtBillDetaillD and bp.DateStamp = bdt.DateTimeofBillScan 
5 join PaymentRecordTransaction prt on bp.KioskPCID = prtKioskPCID and 

prt.PaymentRecordID = bp.PaymentRecordid and prtDateTimeofPayment = bp.DateStamp 
JOIN MainSecurity.dbo.KioskPCInfo kpc on bdtKioskPCID = kpcKioskPCID 
JOIN MainSecurity.dbo.KiosklnfoMaster kirn on kim.KiosklnfoID = kpc.KiosMD 
JOIN MainSecurity.dbo.StoreChainProfileMaster scp on kim.StoreChainProfilelD = 
10 scp.StoreChainProfilelD 

JOIN MainSecurity.dbo.StoreMaster sm on kim.StorelD = sm.StorelD 

where 

bdt.CompanyAccountTypeID = 1 and 
bdtQBTed=10 
15 group by 

prtpaymentrecordid, prtKioskPCID 
order by 

prtKioskPCID, 

count(distinct bp.billdetailid) desc 

20 

loop over payment records 
— this is the batch loop 
open MultiPaySet 
fetch from MultiPaySet 
25 into @PayID, @KioskPCID, @StoreID 

select @MultiPayFetchStatus = @@fetch_jstatus 

select @mploopl = 65 - ASCII for 'A' 

30 select @BatchKiosk = 0 

while @MultiPayFetchStatus = 0 
begin 

35 —if this is a new batch, insert batch header record 

— this record will be updated with the real batch header later 

if @BatchKiosk o @KioskPCID 

begin 

— if this is not the first batch, insert the batch total for the last batch 
40 if@BatchKiosk<>0 

update ##HLP_PMT 

set OutputLine = rightCOOOOO 1 + cast(@BatchRecordCount as 

varchar(5)),5) 
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+ • ' + 

case @FileType 
when 'PMT' then '997' 
when 'MEMO' then '887' 
5 end 

+ ' ' + 

right('00000000000000'+cast(cast(round((@BatchTotal 

* 100),0) as int) as varchar(14)),14) 

+ substring(OutputLine , 13, 100) 
10 where OutputLine like 'BATCH HEADER%' 

select @BatchKiosk = @KioskPCID 
select @BatchTotal = 0 
select @BatchRecordCount = 1 
1 5 select @SequenceNumber = @SequenceNumber + 1 

insert into ##HLP_PMT (OutputLine) 
values 

( 'BATCH HEADER' + 

' ' + @StoreID + " + right('0000' + cast(@BatchKiosk+8000 as 

20 varchar(4)), 4) + " + 

right('00000' + cast(@SequenceNumber as varchar(5)),5) 
+ " + 

cast(datepart(yy,getDateO) as char(4))+ 
right('0' + cast(datepart(mm,getDate()) as varchar(2)),2)+ 
right('0' + cast(datepart(dd,getDateO) as varchar(2)),2) 

) 

end 

~ for each payment record, get bill records 
- and data to report to PMT file 
declare @PaymentRecordFetchStatus int 
declare PaymentRecordSet cursor for 
select 

V + 

left(bdt.BillAccountNumber, 12) 

+ " + 

rightfadtBillAccountNumber, 1) 

+ 

case @FileType 
when 'PMT* then' ' 
when 'MEMO' then ' UN ' 
end 

+ 



25 



30 



35 



40 
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case bdtBillDetaillD 

when @MultiPayBillID then right('00000000000' + 
cast(cast(round(((isnull(bdt.AptPayAmt, prtPaymentAmount)) * 100) ? 0) as int) as 
varchar(ll)),ll) 

5 else rightCOOOOOOOOOOO' + cast(cast(round(((isnull(bdt.AptPayAmt ? 

prt.PaymentAmount) - bdt. Service Amt) * 100),0) as int) as varchar(ll)),ll) 
end 
+ !, + 

case prt.paymenttypeid 
10 when T then 'CA' 

when % 2 then 'CK 
end 

+ " 

as Parti, 

15 - MultiPayFIag goes between Parti and Part2 

" + 

right('O f + cast(datepart(hh,prt.DateTimeo£Payment) as varchar(2)) ? 2)+ 
right('0 ? + cast(datepart(mi,prt.DateTimeofPayment) as varchar(2)) ? 2)+ 
rightCO' + cast(datepart(ss,prt.DateTimeofPayment) as varchar(2)) 5 2) 
20 + ' ? + 'CIS ' + " + 

@StoreID 
+ " + 

rightCOOOO' + cast(@KioskPCID+8000 as varchar(4)), 4) 
+ " 

25 as Part2, 

~ SequenceNumber goes between Part2 and Part3 
,f + 

cast(datepart(yy,prt,DateTimeofPayment) as varchar(4))+ 
rightCO' + cast(datepart(mm 5 prt.DateTinieofPayment) as varchar(2)) ? 2)+ 
30 rightCO' + cast(datepart(dd,prt.DateTimeoflPayment) as varchar(2)),2) 

as Part3, 

bdt.BillDetailID as MultiPayBilllD, 
case bdtBillDetaillD 

when @MultiPayBillID then isnull(bdt.AptPayAmt ? prt.PaymentAmount) 
35 else isnull(bdt.AptPayAmt, prt.PaymentAmount) - bdt.ServiceAmt 

end as ReportedPayment 

from 

BillDetailTransaction bdt 

join BillPay bp on bp.KioskPCID = bdt.KioskPCID and bp.BillDetaillD = 
40 bdt.BillDetailID and bp.DateStamp = bdt.DateTimeoffiillScan 

join PaymentRecordTransaction prt on bp.KioskPCID = prt.KioskPCID and 
prt.PaymentRecordID = bp.PaymentRecordid and prt.DateTimeofPayment = bp.DateStamp 
join Mainsecurity.dbo.KiosKPCInfo kpc on kpc.KioskPCID = bdt.KioskPCID 
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where 

prt.paymentrecordid = @PayID and 
prt.KioskPCID - @KioskPCID and 
bdtCompanyAccountTypelD = 1 and 
5 bdtQBTed=10 

order by bdt.kioskpcid, bdt.billdetailid 

open PaymentRecordSet 
fetch from PaymentRecordSet 
10 into @OutputPartl ? @OutputPart2, @OutputPart3, @MultiPayBillID ? 

@ReportedPayment 

select @PaymentRecordFetchStatus = @@fetch_status 



15 



select @mploop2 = 1 

while @PaymentRecordFetchStatus = 0 
begin 



if @ReportedPayment > 0 
20 begin 

select @SequenceNumber = @SequenceNumber + 1 
if @MultiPaySetCount> 1 

select @MultiPayFlag = char(@mploopl) + cast(@mploop2 as 



varchar(2)) 
25 else 



select @MultiPayFlag = ' ' 



write actual record to file 
insert into ##HLP_PMT (OutputLine) 
30 values 

(@OutputPartl + @MultiPayFlag + @OutputPart2 + right('00000' + 
cast(@SequenceNumber as varchar(5))> 5)+ @OutputPart3) 

select @FileTotal = @FileTotal + @ReportedPayment 
35 select @BatchTotal = @BatchTotal + @ReportedPayment 

select @BatchRecordCount = @BatchRecordCount + 1 

end 



— don't forget to fetch the next one 
40 fetch next from PaymentRecordSet 

into @OutputPartl ? @OutputPart2, @OutputPart3, @MultiPayBillID ? 
@ReportedPayment 

select @PaymentRecordFetchStatus = @@fetch_status 
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select @mploop2 = @mploop2 + 1 



end 



5 close PaymentRecordSet 

deallocate PaymentRecordSet 

- don't forget to fetch the next one 
fetch next from MultiPaySet 
10 into @PayID, @KioskPCID, @StoreID 

select @MultiPayFetchStatus = @@fetch_status 

select @mploopl = @mploopl + 1 

15 end 



close MultiPaySet 
deallocate MultiPaySet 



20 

- write totals for the last batch 
update ##HLP_PMT 

set OutputLine = right('00000 f + cast(@BatchRecordCount as varchar(5)),5) 
+ ' ' + 
25 case @FileType 

when TMT then '997 
when 'MEMO 1 then '887 
end 

30 right(*00000000000000' + cast(cast(round((@BatchTotal * 100),0) as int) as 

varchar(14)),14) 

+ substring(OutputLine ,13, 100) 
where OutputLine like 'BATCH HEADER%' 

35 ~ write totals for the file 
update ##HLP_PMT 

set OutputLine = right('00000' + cast(@SequenceNumber as varchar(5)),5) 

rightCO' + cast(datepart(hh,getDateO) as varchar(2)),2)+ 
40 rightCO' + cast(datepart(mi,getDateO) as varchar(2)),2)+ 

right('0' + cast(datepart(ss,getDate()) as varchar(2)),2) 
+ " + 

case @FileType 
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when 'PMT' then '999' 
when 'MEMO' then '889' 
end 

+ • ' + 

5 rightCOOOOOOOOOOOOOO' + cast(cast(round((@FileTotal * 100),0) as int) as 

varchar(14)),14) 

+ substring(OutputLine , 12, 100) 
where OutputLine like 'FILE HEADER%' 

10 - write wire transfer number to table 
if@FileType = 'PMT' 
insert into 

MainSecurity.dbo.WireTransfers 

(Payee, WireDate, WireAmount, Comment) 

15 values 

('HL&P', dateadd(day,@WireOffset,getdate0), @FileTotal, 'Generated ' + 
convert(varchar,getdateO, 101)) 



20 insert into ##HLP_PMT (OutputLine) 
values 
('MMMM') 

— print contents of temp table to disk file 
25 declare @BCPCommand varchar(200) 

select @BCPCommand = 'bcp "SELECT OutputLine FROM ##HLP_PMT order by id" 

queryout "'+ @FileName + *" II /c' 

EXEC master, .xp cmdshell @BCPCommand 

select @BCPCommand = 'move ' + @FileName + ' 
30 \\ASKVTS01\Transmissions\outgoing\HLPV 
EXEC master. .xp_cmdshell @BCPCommand 

insert into 

MainSecurity.dboJobRC 
35 (DateTime, ReturnCode, JobTxt, TxtComment) 

values 

(getdate(), 0, 'HL&P PMT file', 'File generated successfully.') 
SELECT OutputLine FROM ##HLP_PMT order by id 

40 

drop table ##HLP_PMT 
end ~ create proc 
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HLP NSF report/invoice 
-- Human-readable report and invoice 

5 - RL 01/10/2001 : query written as example 

— RL 01/19/2001 : store name/number added, with return code 
RL 01/25/2001 ; send output to text file on ASKVTS01 

— RL 01/27/2001 : use QBTed value to choose records to process 

— RL 01/29/2001 : convert to stored procedure 
10 - RL 03/05/2001 : copied from Entex NSF report 

— RL 03/29/2001 : add datetime values to join conditions 

use MainKiosk 
go 

15 

drop proc pr_HLPJSfSF_report 
go 

create proc pr_HLP_NSF_report 
20 as begin 

— overhead for file creation 
create table ##HLP_NSF 

(id int identity, OutputLine varchar(200)) 
25 delete from ##HLP_NSF 

declare @FileName varchar(lOO) 

select @FileName = ! c:\askHarris_HLP_NSFhumanJ + replace(convert(varchar, getdate(), 
106), ' ' ,") + '-' + rightCO' + cast(datepart(hh,getdateO) as varchar(2)),2) + right('0' + 
30 cast(datepart(mi,getdateO) as varchar(2)),2) + '.txf 

declare @ReturnedAmount float 
declare @ReturnedTotal float 
declare @ReturnedCount int 

35 

select @ReturnedAmount = 0, 
@ReturnedTotal = 0, 
@ReturnedCount = 0 

40 declare @OutputLine varchar(200) 

insert into ##HLP_NSF (OutputLine) 
values (") 
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insert into ##HLP_NSF (OutputLine) 

values ( f askHarris.com') 

insert into ##HLP JNSF (OutputLine) 

values ('RETURNED CHECK REPORT) 
5 insert into ##HLP_NSF (OutputLine) 

values (Tor Reliant HL&P') 

insert into ##HLP_NSF (OutputLine) 

values ('Generated ' + convert(varchar, getdateO)) 

insert into ##HLP_NSF (OutputLine) 
10 values (") 

insert into ##HLP_NSF (OutputLine) 

values (' Payment Store 
Store') 

insert into ##HLP JNSF (OutputLine) 
15 values (' Date Account # Amount Name TDL Receipt # Code 

Chain Name ') 

insert into ##HLP_NSF (OutputLine) 
values 



20 



declare NSFCursor cursor for 
select 



40 



25 



30 



35 



convert(char(10) ? prtDateTimeofPayment, 101) 
+ ' r + — as PaymentDate, 
bdt.BillAccountNumber 
+ ' 1 + — as AccountNumber 

convert(char(12) ? prt.PaymentAmount - bdtServiceAmt, 0) 

+ ' 1 + — as PaymentAmount, 

cast(replace(cit.Name, '$', 1 ') as char(30)) 

+ ' ' + — as CustomerName, 

cit.IdentificationNumber 

+ ' ' + »asTDL ? 

cast(rdt.ReceiptNumber as char(14)) 

+ ' 1 + — as ReceiptNumber, 

rcReturnCode 

+ ' ' + — as ReturnCode, 

cast(scp,StoreChainName as char(20)) 

+ ' ' + as StoreChain, 

sm.StoreName, 

- as StoreName 



prtPaymentAmount - bdt.ServiceAmt as ReturnedAmount 

from 



PaymentRecordTransaction pit 
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join ReturnedChecks rc on prtPaymentRecordlD = rc.PaymentRecordID and 
prt.KioskPCID = rc.KioskPCID 

join BillPay bp on prt.PaymentRecordID = bp.PaymentRecordID and prt.KioskPCID 
= bp.KioskPCID and prt.DateTimeofPayment = bp.DateStamp 
5 joinBiUDeMTransactionbdtonbdtBiiro^ 

= bp.KioskPCID and bdtDateTimeoffiillScan = bp.DateStamp 

join CustomerldentificationTransaction cit on citCustomerldentificationID = 
prt.CustomerldentificationID and cit. Checking AccountNumber 1 = 
prt.CheckingAccountNumber 
10 join ReceiptBill rb on rb.KioskPCID = bp.KioskPCID and rb.BillPayld = bp.BillPaylD 

and rb.DateStamp = bp.DateStamp 

join ReceiptDetailTransaction rdt on rdt.KioskPCID = rb.KioskPCID and 
rdtReceiptDetaillD = rb.ReceiptDetaillD and rdtDateTimeofReceiptlssue = rb.DateStamp 

join MainSecurity.dbo.KioskPCInfo kpc on kpc.KioskPCID = prt.KioskPCID 
15 join MainSecurity.dbo.KiosklnfoMaster kim on kpc.KioskID = kim.KioskInfoID 

join MainSecurity.dbo.StoreChainProfileMaster scp on kim.StoreChainProfilelD = 
scp.StoreChainProfilelD 

join MainSecurity.dbo.StoreMaster sm on sm.StorelD = kim.StorelD 

join MainSecurity.dbo.AddressMaster am on am.StorelD = kim.StorelD 

20 where 

bdt Company AccountTypeld = 1 and 
rc.QBTed=10 
order by 

prt.DateTimeofPayment 

25 

open NSFCursor 

fetch from NSFCursor into @OutputLine 9 @ReturnedAmount 



while @@fetch__status = 0 
30 begin 

select @ReturnedTotal = @ReturnedTotal + @ReturnedAmount 
select @ReturnedCount = @ReturnedCount + 1 

insert into ##HLP_NSF (OutputLine) 
35 values (@OutputLine) 

fetch next from NSFCursor into @OutputLine, @ReturnedAmount 

end 



close NSFCursor 
40 deallocate NSFCursor 



insert into ##HLP_NSF (OutputLine) 
values (") 
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10 



15 



20 



25 



insert into ##HLP_NSF (OutputLine) 

values (' ') 

insert into ##HLP_NSF (OutputLine) 

values ('Returned Checks ' + convert(char(5), @ReturnedCount, 0) + 

convert(char(12), cast(@ReturnedTotal as money), 0)) 
insert into ##HLP_NSF (OutputLine) 

values ('Bank Fees ' + convert(char(12), cast(@ReturnedCount * 2 as money), 

0)) 

insert into ##HLP_NSF (OutputLine) 

values ('askHarris Service Charge ' + + convert(char(12), cast(@ReturnedCount as 

money), 0)) 

insert into ##HLP_NSF (OutputLine) 
values 

C „ 



30 



— =') 

insert into ##HLP_NSF (OutputLine) 
values (TOTAL 

(@ReturnedCount * 3) as money), 0)) 
insert into ##HLP_NSF (OutputLine) 
values (") 

insert into ##HLP_NSF (OutputLine) 
values ('ACH Payment Instructions:') 
insert into ##HLP_NSF (OutputLine) 
values ('Account: askHarris.com') 
insert into ##HLP_NSF (OutputLine) 
values ('Bank : Chase Bank of Texas') 
insert into ##HLP_NSF (OutputLine) 
values ('ABA # : 1 1 1000609') 
insert into ##HLP_NSF (OutputLine) 
values ('Account #30802536134') 



' + convert(char(12), cast(@ReturnedTotal + 



— print contents of temp table to disk file 
35 declare @BCPCommand varchar(200) 

select @BCPCommand = 'bcp "SELECT OutputLine FROM ##HLP_NSF order by id" 

queryout "'+ @FileName + '" /T /c' 

EXEC master.. xp_cmdshell @BCPCommand 

40 select @BCPCommand = 'move ' + @FileName + ' 
WASKVTS0 1 \Transmissions\outgoing\HLPV 
EXEC master..xp_cmdshell @BCPCommand 
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insert into 

MainSecurity.dboJobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

values 

5 (getdateO, 0, 'HL&P NSF report', Tile generated successfully/) 

drop table ##HLP_NSF 
end — create proc 

10 
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-HL&PNSFfile 



- RL 12/01/2000 : built for multi-pay processing 

5 - RL 12/02/2000 : modified to generate full PMT file (for all payments) 
-- RL 01/03/2001 : batch on KioskPCID, report store info in file 

- RL 01/04/2001 : correct totals (over by svc chg, multi-pay) 

- RL 01/08/2001 : revise for MEMO file 

- RL 01/08/2001 : make NSF query from PMT/MEMO 
10 - RL 0 1 /l 0/200 1 : remove batching from NSF file 

- RL 01/25/2001 : change multi-pay reporting to match database change (AptPayAmt and 
ServiceAmt) 

~ RL 01/25/2001 : write output to text file on ASKVTS01 

- RL 01/27/2001 : use QBTed value to choose records to process 
15 - RL 0 1/29/200 1 : convert to stored procedure 

- RL 03/29/2001 : add datetime values to join conditions 

use MainKiosk 
20 go 

drop proc pr_HLP_NSF 
go 

25 create proc pr_HLP_NSF 
as begin 

- overhead for file creation 
create table ##HLP_NSF 

30 (id int identity, OutputLine varchar(200)) 
delete from ##HLP_NSF 
declare @FileName varchar(100) 



35 

~ is this a PMT or MEMO file? 
declare @FileType varchar(4) 
select @FileType = TSfSF' 

40 select @FileName = 'c:\askHarris_HLPJ + @FileType + '_' + replace(convert(varchar, 
getdateO, 106), ' ' ,") + '-' + right('0' + cast(datepart(hh,getdate()) as varchar(2)),2) + rightCO* + 
cast(datepart(mi,getdateO) as varchar(2)),2) + '.rpt 1 
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— values for each payment reported 
declare @PayID int 
declare @MultiPaySetCount int 
5 declare @KioskPCID int 

declare @TotalServiceCharge float 
declare @TotalAmountBilled float 
declare @TotalAmountPaid float 



- payment id 

~ number of bills attached to payment 
-- kiosk where payment was entered 

- service charge for the set of bills 

-- total amount of bills, including service charge 

— total amount of bills without service charge 



10 — parts of the output record 

— the multi-pay flag and sequence number go between these parts 
declare @OutputPartl varchar(200) 

declare @OutputPart2 varchar(200) 
declare @OutputPart3 varchar(200) 

15 

- multi-pay flag parts 

- loopl is the ASCII code for the alphabetic portion 
~ loop2 if the numeric part 

declare @mploopl int 
20 declare @mploop2 int 

declare @MultiPayFlag char(3) 

— sequence number for lines in the PMT file 
declare @SequenceNumber int 

25 select @SequenceNumber = 1 



— figure totals for file header record 
declare @RecordCount int 
30 declare @TotalAmount float 

select 

@RecordCount = isnull(count(*) ? 0), 

@TotalAmount = isnull(sum(prt.PaymentAmount - bdt.ServiceAmt),0) 

35 FROM 

BillDetailTransaction bdt 

JOIN BillPay bp ON bdtBillDetailld = bp.BillDetailld and bdtKioskPCID = 
bp.KioskPCID and bdtDateTimeoffiillScan = bp.DateStamp 

JOIN PaymentRecordTransaction prt ON bp.PaymentRecordld = prt PaymentRecordld 
40 and bp.KioskPCID = prt.KioskPCID and bp.DateStamp = prtDateTimeofPayment 

JOIN ReturnedChecks rc on prt.KioskPCID - rc.KioskPCID and prt.PaymentRecordID 
= rc.PaymentRecordID 
WHERE 
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bdt Company AccountTypeld = '1' and 
rc.QBTed=10 



- adjust batch total for multi-pay payments 
5 -in the sum above, full payment is added for each bill, instead of partial payment 
select @TotalAmount = @TotalAmount - isnull(sum(foo),0) 
from 

( 

select 

10 isnull((max(prt.paymentamount))/(count(*)-l) ? 0) as foo 

from 

BillDetailTransaction bdt 

JOIN BillPay bp ON bdtBillDetailld = bp.BillDetailld and bdt.KioskPCID = 
bp.KioskPCID and bdt.DateTimeofBillScan = bp.DateStamp 
15 JOIN PaymentRecordTransaction pit ON bp.PaymentRecordId = 

prt.PaymentRecordld and bp.KioskPCID = prt.KioskPCID and bp.DateStamp = 
prtDateTimeofPayment 

JOIN ReturnedChecks rc on prtKioskPCID - rc.KioskPCID and 
prt.PaymentRecordID = rc.PaymentRecordID 
20 WHERE 

bdtCompany AccountTypeld = T and 
rc.QBTed= 10 
group by 

prt.paymentrecordid, prt.KioskPCID 

25 having 

count(distinct bp.billdetaiiid) > 1 
) as blah 



30 — generate file header record 

insert into ##HLP_NSF (OutputLine) 
values 

( rightCOOOOO' + cast(@RecordCount+2 as varchar(5)),5) 
+ ' » + 

35 rightCO' + cast(datepart(hh,getDate()) as varchar(2)),2)+ 

rightCO 1 + cast(datepart(mi ? getDateO) as varchar(2)),2)+ 
rightCO 1 + cast(datepart(ss,getDate()) as varchar(2)),2) 
+ " + 
'999' 

40 + ' ' + 

rightCOOOOOOOOOOOOOO' + cast(cast(round((@TotalAmount * 100),0) as int) as 
varchar(14)),14) 

+ ' , + , ASK , + ,, + , 01' V-f 
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'NSF 

- TST : Testing 

- PRD : Production 
+ ' ' + 

5 rightCOOOOO 1 + cast(@SequenceNumber as varchar(5)),5) 

+ M + 

cast(datepart(yy,getDateO) as char(4))+ 

right('O f + cast(datepart(mm ? getDateO) as varchar(2)),2)+ 

rightCO* + cast(datepart(dd,getDate0) as varchar(2)) ? 2) 

10 ) 
/* 

declare @BatchRecordCount int 
declare @BatchTotalAmount float 
15 declare @BatchCursorFetchStatus int 

declare BatchCursor cursor for 
select 

PaymentRecordTransaction.KioskPCID ? 
20 cast(upper(left(LocalSecirity.dbo.Sto^ as 

char(4)) 

+ 1 ' + cast(right(LocalSecurity.dbo.StoreMaster.StoreName,3) as char(3)) ? 
count(*) as BatchRecordCount, 

sum(PaymentRecordTransaction.PaymentAmount + BillDetailTransaction.BillAmount 
25 - BillDetailTransaction.AmountDue) as BatchTotalAmount 
FROM 

BillDetailTransaction 

JOIN BillPay ON BillDetailTransaction.BillDetailId = BillPay.BillDetailld 

JOIN PaymentRecordTransaction ON BillPay. PaymentRecordld 
30 PaymentRecordTransaction*PaymentRecordId 

JOIN PaymentType ON PaymentRecordTransaction.PaymentTypeld = 
PaymentType.PaymentTypeld 

JOIN LocalSecurity.dbo.KioskPCInfo on BillDetailTransaction.KioskPCID = 
LocalSecurity.dbo.KioskPCInfo.KioskPCID 
35 JOIN LocalSecurity.dbo.KiosklnfoMaster on 

LocalSeciu'ity.dbo.KiosklnfoMaster.KiosklnfoID = LocalSecurity .dbo.KioskPCInfo.KioskID 

JOIN Local Security. dbo.StoreChainProfileMaster on 
LocalSecurity.dbo.KiosklnfoMaster.StoreChainProfilelD = 
LocalSecurity .dbo. StoreChainProfileMaster. StoreChainProfilelD 
40 JOIN LocalSecurity.dbo.StoreMaster on LocalSecurity.dbo.KiosklnfoMaster.StorelD 

= LocalSecurity.dbo.StoreMaster.StoreID 

JOIN ReturnedChecks on PaymentRecordTransaction.KioskPCID = 
ReturnedChecks.KioskPCID and PaymentRecordTransaction.PaymentRecordID = 
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RetumedChecks.PaymentRecordID 
WHERE 

BillDetailTransaction.CompanyAccountTypeId = T 
group by 

5 LocalSecurity.dbo.StoreChainProfileMaster.StoreChainName, 
LocalSecurity.dbo.StoreMaster.StoreName, 
PaymentRecordTransaction.KioskPCID 
order by 

PaymentRecordTransaction.KioskPCID 

10 

open BatchCursor 
fetch from BatchCursor 

into @KioskPCID, @StoreID, @BatchRecordCount, @BatchTotalAmount 
select @BatchCursorFetchStatus = @@fetch_status 
15 */ 



select @SequenceNumber = @SequenceNumber + 1 

20 — adjust batch total for multi-pay payments 

— in the sum above, full payment is added for each bill, instead of partial payment 
/* 

select @BatchTotalAmount = @BatchTotalAmount - isNull(sum(foo),0) 
from 
25 ( 

select 

(maxCprt.paymentamounQy^ountC* 1 )-!) as foo 

from 

BillPay bp, 

30 BillDetailTransaction bdt, 

PaymentRecordTransaction prt, 
ReturnedChecks rc 

where 

bdt.CompanyAccountTypelD = 1 and 
35 bp.BillDetaillD = bdt.BillDetailID and 

bp.PaymentRecordID = prt.PaymentRecordid and 

bp.kioskpcid = bdtkioskpcid and 

bdtkioskpcid = prtkioskpcid and 

prtKioskPCID = rc.KioskPCID and 
40 prLPaymentRecordID = rc.PaymentRecordID 

group by 

prt.paymentrecordid, prt.KioskPCID 

having 
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count(distinct bp.billdetailid) > 1 
) as blah 

*/ 

5 — generate batch header record 

insert into ##HLP_NSF (OutputLine) 
values 

( rightCOOOOO' + cast(@RecordCount+l as varchar(5)),5) 
+ ' ' + 
10 '998' 

+ ' • + 

right( f 00000000000000' + cast(cast((@TotaIAmount * 100) as int) as varchar(14)) ? 14) 

rightCOOOOO' + cast(@SequenceNumber as varchar(5)),5) 
15 +" + 

cast(datepart(yy 5 getDateO) as char(4))+ 

right('0' + cast(datepart(mm 3 getDateO) as varchar(2)),2)+ 

rightCO' + cast(datepart(dd,getDateO) as varchar(2)),2) 

) 

20 

— get list of multi-pay payment records, with totals for each multi-pay 

- treat single-pay as a type of multipay, with MultiPaySetCount of 1 
declare @StoreID char(9) 

declare @MultiPayFetchStatus int 
25 declare MultiPaySet cursor for 
select 

prt.PaymentRecordID as PaylD, 
prtKioskPCID as KioskPCID, 
isnull(count(*),0) as MultiPaySetCount, 
30 isnull(max(prt.PaymentAmount),0) as TotalAmountPaid, 

isnull(sum(bdt.ServiceAmt),0) as TotalServiceCharge, 
isnull(sum(bdt.BillAmount),0) as TotalAmountBilled 

from 

BillDetailTransaction bdt 
35 JOIN BillPay bp ON bdtBillDetailld = bp.BillDetailld and bdtKioskPCID = 

bp.KioskPCID and bdt.DateTimeofBillScan = bp.DateStamp 

JOIN PaymentRecordTransactionprt ON bp.PaymentRecordld =prtPaymentRecordId 
and bp.KioskPCID = prtKioskPCID and bp.DateStamp = prt.DateTimeofPayment 

JOIN ReturnedChecks rc on prtKioskPCID = rc.KioskPCID and prt.PaymentRecordID 
40 = rc.PaymentRecordID 
WHERE 

bdt.CompanyAccountTypeId = T and 
rc.QBTed-10 
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group by 

prtpaymentrecordid, prtKioskPCID 
order by 

count(distinct bp.billdetailid) desc, 
5 prtKioskPCID 
- having 

count(distinct bp.billdetailid) > 1 



10 — loop over payment records 
open MultiPaySet 
fetch from MultiPaySet 

into @PayID, @KioskPCID, @MultiPaySetCount, @TotalAmountPaid, @TotalServiceCharge, 
@TotalAmountBilled 
15 select @MultiPayFetchStatus = @@fetch_status 

select @mploopl = 65 - ASCII for W 

while @MultiPayFetchStatus = 0 
20 begin 

— for each payment record, get bill records 

— and data to report to PMT file 
declare @PaymentRecordFetchStatus int 
declare PaymentRecordSet cursor for 

25 select 

V + 

left(bdt.BillAccountNumber ? 12) 
+ M + 

right(bdt.BillAccountNumber ? 1) 
30 + 

+ 

— if the set is not paid in full, divide payment equally between bills 
right('00000000000 ? + cast(cast(round(((isnull(bdt.AptPayAmt, 
35 prtPaymentAmount) - bdtServiceAmt) * 100),0) as int) as varchar(l 1)),1 1) 

+ M + 

+ M 

as Parti, 

40 — MultiPayFlag goes between Parti and Part2 

rightCO' + cast(datepart(hh,prt.DateTimeofPayment) as varchar(2)) 5 2)+ 
rightCO 1 + cast(datepart(mi ? prt.DateTimeofPayment) as varchar(2)) ? 2)+ 
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5 



right('0 ! + cast(datepart(ss ? prt.DateTimeo£Payment) as varchar(2)),2) 
+ ' ' + 'CIS ' + " + 

cast(upper(left(scp.StoreChainName,4)) as char(4)) 
+ ' 1 + cast(right(sm.StoreName ? 3) as char(3)) 
+ " + 

rightCOOOO 1 + cast(@KioskPCID+8000 as varchar(4)) 5 4) 
+ " 



10 



as Part2, 

-- SequenceNumber goes between Part2 and Part3 
f, + 

cast(datepart(yy,prt.DateTimeofPayment) as varchar(4))+ 

right('0' + cast(datepart(mm 3 prt.DateTimeofPayment) as varchar(2)),2)+ 

rightfO' + cast(datepart(dd,prt.DateTimeofPayment) as varchar(2)),2) 



as Part3 



15 



from 



BillDetailTransaction bdt 

JOIN BillPay bp ON bdtBillDetailld = bp.BillDetailld and bdtKioskPCID = 
bp.KioskPCID and bdt.DateTimeofBillScan = bp.DateStamp 

JOIN PaymentRecordTransaction prt ON bp.PaymentRecordld = 
20 prtPaymentRecordld and bp.KioskPCID = prtKioskPCID and bp.DateStamp = 
prt.DateTimeofPayment 

JOIN RetumedChecks rc on prt.KioskPCID = rc.KioskPCID and 
prt.PaymentRecordID = rc.PaymentRecordID 

JOIN MainSecurity.dbo.KioskPCInfo kpc on rc.KioskPCID = kpc.KioskPCID 
25 JOIN MainSecurity.dbo.KiosklnfoMaster kim on kim.KioskInfoID = 

kpc.KioskID 

JOIN MainSecurity.dbo.StoreChainProfileMaster scp on 
kim.StoreChainProfilelD = scp.StoreChainProfilelD 

JOIN MainSecurity.dbo.StoreMaster sm on kim.StorelD = sm.StorelD 
30 WHERE 



bdtCompanyAccountTypeld = T and 
prt.paymentrecordid = @PayID and 
prt.KioskPCID = @KioskPCID and 
rc.QBTed=10 



35 



order by bdt.billdetailid 



40 



open PaymentRecordSet 

fetch from PaymentRecordSet 

into @OutputPartl, @OutputPart2, @OutputPart3 

select @PaymentRecordFetchStatus = @@fetch_status 



select @mploop2 = 1 
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while @PaymentRecordFetchStatus = 0 
begin 



varchar(2)) 



select @SequenceNumber = @SequenceNumber + 1 
if @MultiPaySetCount > 1 

select @MultiPayFlag = char(@mploopl) + cast(@mploop2 as 

else 

select @MultiPayFlag = ! ' 



10 



write actual record to file 
insert into ##HLP JNSF (OutputLine) 

values (@OutputPartl + @MultiPayFlag + @OutputPart2 + right('00000' + 
cast(@SequenceNumber as varchar(5)), 5)+ @OutputPart3) 

15 

— don't forget to fetch the next one 
fetch next from PaymentRecordSet 
into @OutputPartl, @OutputPart2, @OutputPart3 
select @PaymentRecordFetchStatus = @@fetch_status 
20 select @mploop2 = @mploop2 + 1 

end 



close PaymentRecordSet 
25 deallocate PaymentRecordSet 

— don't forget to fetch the next one 
fetch next from MultiPaySet 

into @PayID, @KioskPCID, @MultiPaySetCount ? @TotalAmountPaid 5 
30 @TotalServiceCharge ? @TotalAmountBilled 

select @MultiPayFetchStatus = @@fetch_status 

select @mploopl = @mploopl + 1 

35 end 



close MultiPaySet 
deallocate MultiPaySet 

40 insert into ##HLP_NSF (OutputLine) 
values 
('MMMM') 
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— print contents of temp table to disk file 
declare @BCPCommand varchar(200) 

select @BCPCommand - 'bcp "SELECT OutputLine FROM ##HLP_NSF order by id" 
queryout '"+ @FileName + ,n /T /c' 
5 EXEC master. .xp_cmdshell @BCPCommand 

select @BCPCommand = 'move ! + @FileName + f 

\\ASKVTS01\Transmissions\outgoing\HLPV 

EXEC master..xp_cmdshell @BCPCommand 

10 

insert into 

MainSecurity-dbo.JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

values 

15 (getdateO, 0, *HL&P NSF file 1 , Tile generated successfully/) 

drop table ##HLP_NSF 
end — create proc 

20 
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- Entex PMT report 

— Human-readable report of Entex payments 



5 - RL 01/10/2001 : query written as example 

« RL 01/25/2001 : send output to text file on ASKVTS01 

-- RL 01/27/2001 : use QBTed value to choose records to process 

- RL 01/29/2001 : convert to stored procedure 
« RL 02/02/2001 : copy from Entex NSF report 

10 — RL 02/03/2001 : correct for mixed payments (one payment, one service charge) 

- RL 02/10/2001 : prevent reporting of numbers <=0 ($1 payment - $1 svc chg) 
RL 02/16/2001 : only report current day's payments, fix Customer info 

RL 02/23/3001 : add grand total at bottom of report 

- RL 03/29/2001 : add datetime values to join conditions 

15 

use MainKiosk 
go 

drop proc pr_Entex_PMT_report 
20 go 

create proc pr__Entex_PMT_report 
as begin 

25 - overhead for file creation 
create table ##ENTEX_PMT 
(id int identity, OutputLine varchar(200)) 
delete from ##ENTEX_PMT 
declare @FileName varchar(lOO) 

30 

select @FileName = 'c:\askHarris_Entex_PMThumanJ + replace(convert(varchar, getdate() ? 
106), 1 ' ,") + + right(*0 ! + cast(datepart(hh,getdateO) as varchar(2)),2) + rightC0 r + 
cast(datepart(mi,getdateQ) as varchar(2)),2) + \txt ! 

35 

declare @OutputLine varchar(200) 
declare @DetailAmount money 
declare @TotalAmount money 

40 select @DetailAmount = 0, @TotalAmount = 0 

insert into ##ENTEX __PMT (OutputLine) 
values (") 
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insert into ##ENTEX_PMT (OutputLine) 
values ('askHarris.com') 
insert into ##ENTEX_PMT (OutputLine) 
values ('PAYMENT REPORT') 
5 insert into ##ENTEX_PMT (OutputLine) 
values ('for Reliant Entex') 
insert into ##ENTEX_PMT (OutputLine) 
values ('Generated ' + convert(varchar, getdate())) 
insert into ##ENTEX_PMT (OutputLine) 
10 values (") 

insert into ##ENTEX_PMT (OutputLine) 

values (' Payment Store Store') 

insert into ##ENTEX_PMT (OutputLine) 

values (' Date Account # Amount Name TDL Receipt # Chain 

15 Name ') 

insert into ##ENTEX_PMT (OutputLine) 
values 

) 

20 declare NSFCursor cursor for 
select 

convert(char(10), max(prt.DateTimeofPayment), 101) 
+ ' ' + - as PaymentDate, 
max(bdt.BillAccountNiimber) 
25 +' ' + — as AccountNumber 

convert(char(12), sum(prt.PaymentAmount) - max(bdtServiceAmt) ? 0) 
+ ' 1 + — as PaymentAmount, 

cast(replace(max(isnull(cit.Name ? ' [Cash Payment]')), '$',") as char(30)) 
+ f 1 + — as CustomerName, 
30 maxCisnul^citJdentificationNiimber, ' ')) 

+ f r + as TDL, 

cast(max(rdt.ReceiptNumber) as char(14)) 
+ ' ' + « as ReturnCode, 
cast(max(scp.StoreChainName) as char(20)) 
35 +' ' + - as StoreChain, 

max(sm.StoreName), 
— as StoreName 

sum(prt.PaymentAmount) - max(bdt.ServiceAmt) as DetailAmount 

from 

40 PaymentRecordTransaction prt 

join BillPay bp on prtPaymentRecordlD = bp.PaymentRecordID and prt.KioskPCID 
= bp.KioskPCID and prtDateTimeofPayment = bp.DateStamp 
joinBillDetailTransactionbdtonbdt^il©^ 
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= bp.KioskPCID and bdt.DateTimeofBillScan = bp.DateStamp 

left join CustomerldentificationTransaction cit on cit.CustomerldentificationID = 
prt. Customer Identification^ and cit. Checking AccountNumberl 
prt.CheckingAccountNumber 
5 join ReceiptBill rb on rb.KioskPCID = bp.KioskPCID and rb.BillPayld = bp.BillPaylD 

and rb.DateStamp = bp.DateStamp 

join ReceiptDetailTransaction rdt on rdt.KioskPCID = rb.KioskPCID and 
rdt.ReceiptDetaillD = rb.ReceiptDetaillD and rdt.DateTimeofReceiptlssue = rb.DateStamp 

join MainSecurity.dbo.KioskPCInfo kpc on kpc.KioskPCID = prtKioskPCID 
10 join MainSecurity.dbo.KiosklnfoMaster kirn on kpc.KioskID = kim.KiosklnfoID 

join MainSecurity.dbo.StoreChainProfileMaster scp on kim.StoreChainProfilelD = 
scp.StoreChainProfilelD 

join MainSecurity.dbo.StoreMaster sm on sm.StorelD = kim.StorelD 

join MainSecurity.dbo.AddressMaster am on am.StorelD = kim.StorelD 

15 where 

bdiCompanyAccountTypelD in (2, 9) and 

bdt.QBTed-10 
group by bdtBillDetaillD, bdt.KioskPCID 
having (sum(prt.PaymentAmount) - max(bdt. Service Amt)) > 0 
20 order by 

max(prt.DateTimeofPayment) 

open NSFCursor 

fetch from NSFCursor into @OutputLine, @DetailAmount 

25 

while @@fetch_status = 0 
begin 

insert into ##ENTEX_PMT (OutputLine) 
values (@OutputLine) 
30 select @TotalAmount = @TotalAmount + @DetailAmount 

fetch next from NSFCursor into @OutputLine, @DetailAmount 

end 

close NSFCursor 
35 deallocate NSFCursor 

insert into ##ENTEX_PMT (OutputLine) 
values 

40 Q ==s==== = ========== 

______ ) 

insert into ##ENTEX_PMT (OutputLine) 

values ('Payment Total ' + convert(char(12) ? @TotalAmount ? 0) ) 
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- print contents of temp table to disk file 
declare @BCPCommand varchar(200) 

select @BCPCommand = 'bcp "SELECT OutputLine FROM ##ENTEXJ>MT order by id 1 
queryout m + @FileName + /T /c' 
5 EXEC master. .xp_cmdshell @BCPCommand 

select @BCPCommand = 'move ' + @FileName + 

\\ASKVTS01\Transmissions\outgoing\EntexV 

EXEC master. >xp_cmdshell @BCPCommand 

10 

insert into 

MainSecurity.dbo.JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

values 

15 (getdate() ? 0, 'Entex PMT repoif, 'File generated successfully/) 

drop table ##ENTEX J>MT 
end - create proc 

20 
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-- HL&P MEMO 



- AG & RL 1 1/25/2000 : insert detail records to HLP_PMT table 
5 -RL 12/01/2000 : built for multi-pay processing 

« RL 12/02/2000 : modified to generate full PMT file (for all payments) 
RL 01/03/2001 : batch on KioskPCID, report store info in file 

- RL 01/04/2001 : correct totals (over by svc chg, multi-pay) 

- RL 01/08/2001 : revise for MEMO file 

10 - RL 01/1 1/2001 : change multi-pay division method (from even split to proportional) 

- RL 01/25/2001 : change multi-pay reporting to match database change (AptPayAmt and 
ServiceAmt fields) 

- RL 01/25/2001 : write output to text file in its place on ASKVTS01 

- RL 01/27/2001 : use QBTed value to choose records to process 
15 — RL 01/29/2001 : copy file, convert to stored procedures 

- RL 02/10/2001 : prevent double-subtraction of service chanrge on mixed payments 

- RL 02/10/2001 : prevent reporting of numbers <=0 ($1 payment - $1 svc chg) 

- RL 02/15/2001 : rearrange figuring of totals (accumulate from detail instead of computing 
separately) 

20 - RL 02/26/2001 : make wire transfer write depend on file type 
-- RL 02/26/2001 : re-copied file from PMT generator 

- RL 03/29/2001 : add datetime values to join conditions 

25 use MainKiosk 
go 

drop proc pr_HLP_MEMO 
go 

30 

create proc pr_HLP_MEMO 
as begin 

- overhead for file creation 
35 create table ##HLP JPMT 

(id int identity, OutputLine varchar(200)) 
delete from ##HLP J>MT 
declare @FileName varchar(lOO) 

40 - is this a PMT or MEMO file? 
declare @FileType varchar(4) 
-select @FileType = 'PMT 
select @FileType = 'MEMO' 
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-\\ASKVTS01\Transmissions\outbound\HLP 



select @FileName = 'c:\asH3arrisHLP_' + @FileType + + replace(convert(varchar, 
getdateO, 106), ' ' /') + + rightCO 1 + cast(datepart(hh,getdateO) as varchar(2)),2) + right( f 0' + 
5 cast(datepart(mi ? getdateO) as varchar(2)),2) + \rpt ! 

— values for each payment reported 

declare @PayID int ~ payment id 

declare @MultiPay SetCount int — number of bills attached to payment 

10 declare @KioskPCID int ~ kiosk where payment was entered 

declare @TotalServiceCharge float - service charge for the set of bills 

declare @TotalAmountBilled float - total amount of bills, including service charge 
declare @TotalAmountPaid float — total amount of bills without service charge 

15 — parts of the output record 

— the multi-pay flag and sequence number go between these parts 
declare @OutputPartl varchar(200) 

declare @OutputPart2 varchar(200) 
declare @OutputPart3 varchar(200) 

20 

— multi-pay flag parts 

— loopl is the ASCII code for the alphabetic portion 

— loop2 if the numeric part 
declare @mploopl int 

25 declare @mploop2 int 

declare @MultiPayFlag char(3) 
declare @StoreID char(9) 

« sequence number for lines in the PMT file 
30 declare @SequenceNumber int 
select @SequenceNumber = 0 

— accumulators for batch and file totals and counts 
declare @BatchRecordCount int 

35 declare @BatchTotal float 
declare @FileTotal float 
declare @BatchKiosk int 

select 

40 @BatchRecordCount = 0, 

@BatchTotal = 0, 
@FileTotal = 0 
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- variables for wire transfer 
declare @WireOffset int 

if datename(dw,getdate()) in (Thursday '/Friday') 
select @WireOffset = 4 

5 else 

select @WireOffset = 2 

— insert file header record 

10 — this record will be updated with the real file header later 
insert into ##HLP J>MT (OutputLine) 
values 

( 

TILE HEADER' 
15 + ' , + 'ASK' + ,, + , 01 , + ,, + 
case @FileType 

when'PMT then TRD' 

when 'MEMO' then 'MEM' 
end 

20 TST : Testing 

PRD : Production 
+ ' » + 

'0000 1' — sequence number 

+ " + 

25 cast(datepart(yy ? getDateO) as char(4))+ 

right('0' + cast(datepart(mm,getDateO) as varchar(2)),2)+ 
right('0 ? + cast(datepart(dd ? getDateO) as varchar(2)) 5 2) 
) 

30 select @SequenceNumber = @SequenceNumber + 1 

— get list of multi-pay payment records, with totals for each multi-pay 

- treat single-pay as a type of multipay, with MultiPaySetCount of 1 
declare @MultiPayFetchStatus int 

35 declare @MultiPayBillID int 

declare @ReportedPayment float 

declare MultiPaySet cursor for 
select 

40 prt.PaymentRecordlD as PaylD, 

prtKioskPCID as KioskPCID, 

cast(upper(left(max(scp.StoreChainName),4)) as char(4)) 

+ ' ' + cast(right(max(sm.StoreName) ? 3) as char(3)) as StorelD 
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from 

BillDetailTransaction bdt 

join BillPay bp on bp.KioskPCID = bdtKioskPCID and bp.BillDetaillD = 
bdtBillDetaillD and bp.DateStamp = bdtDateTimeofBillScan 
5 join PaymentRecordTransaction prt on bp.KioskPCID = prt.KioskPCID and 

prt.PaymentRecordID = bp.PaymentRecordid and prt.DateTimeofPayment = bp.DateStamp 
JOIN MainSecurity.dbo.KioskPCInfo kpc on bdt.KioskPCID = kpc.KioskPCID 
JOIN MainSecurity.dbo.KiosklnfoMaster kirn on kim.KiosklnfoID = kpc.KioskID 
JOIN MainSecurity.dbo.StoreChainProfileMaster scp on kim.StoreChainProfilelD = 
10 scp.StoreChainProfilelD 

JOIN MainSecurity.dbo.StoreMaster sm on kim.StorelD = sm.StorelD 

where 

bdt.CompanyAccountTypelD = 1 and 
bdt.QBTed=10 
15 group by 

prt.paymentrecordid, prtKioskPCID 
order by 

prt.KioskPCID, 

count(distinct bp.billdetailid) desc 

20 

— loop over payment records 
~ this is the batch loop 
open MultiPaySet 
fetch from MultiPaySet 
25 into @PayID, @KioskPCID, @StoreID 

select @MultiPayFetchStatus = @@fetch_status 

select @mploopl = 65 ~ ASCII for ! A' 

30 select @BatchKiosk - 0 

while @MultiPayFetchStatus = 0 
begin 

35 — if this is a new batch, insert batch header record 

— this record will be updated with the real batch header later 

if @BatchKiosk o @KioskPCID 

begin 

- if this is not the first batch, insert the batch total for the last batch 
40 if @BatchKiosk o 0 

update ##HLP_PMT 

set OutputLine = rightCOOOOO' + cast(@BatchRecordCount as 

varchar(5)),5) 
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+ ' ' + 

case @FileType 
when 'PMT' then '997' 
when 'MEMO' then '887* 
5 end 

+ ' ' + 

right('00000000000000' + cast(cast(round((@BatchTotal 

* 100),0) as int) as varchar(14)),14) 

+ substring(OutputLine , 13, 100) 
10 where OutputLine like 'BATCH HEADER%* 

select @BatchKiosk = @KioskPCID 
select @BatchTotal = 0 
select @BatchRecordCount = 1 
15 select @SequenceNumber = @SequenceNumber + 1 

insert into ##HLP_PMT (OutputLine) 
values 

( 'BATCH HEADER' + 

' ' + @StoreID + ' * + rightCOOOO' + cast(@BatchKiosk+8000 as 

20 varchar(4)), 4) + " + 

right('00000' + cast(@SequenceNumber as varchar(5)),5) 
+ " + 

cast(datepart(yy,getDateO) as char(4))+ 
right('0' + cast(datepart(mm,getDateO) as varchar(2)),2)+ 
right('0' + cast(datepart(dd,getDateO) as varchar(2)),2) 

) 

end 

— for each payment record, get bill records 

— and data to report to PMT file 
declare @PaymentRecordFetchStatus int 
declare PaymentRecordSet cursor for 
select 

*1' + 

left(bdt.BillAccountNumber, 12) 
+ " + 

right(bdt.BillAccountNumber, 1) 
+ 

case @FileType 
when 'PMT' then ' ' 
when 'MEMO' then 'UN' 
end 
+ 



25 



30 



35 



40 
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case bdtBMDetaillD 

when @MultiPayBillID then right('00000000000' + 
cast(cast(round(((isnull(bdt.AptPayAmt, prt.PaymentAmount)) * 100),0) as int) as 
varchar(ll)) 5 ll) 

5 else right('00000000000' + cast(cast(round(((isnull(bdt.AptPayAmt 5 

prtPaymentAmount) - bdt.ServiceAmt) * 100),0) as int) as varchar(l 1)),1 1) 
end 

+ " + 

case prt.paymenttypeid 
10 when T then 'CA' 

when '2' then 'CK' 
end 
+ " 

as Parti, 

15 — MultiPayFlag goes between Parti and Part2 

" + 

right('0' + cast(datepart(hh,prt.DateTimeof3 > ayment) as varchar(2)),2)+ 
right('0' + cast(datepart(mi,prt.DateTimeofPayment) as varchar(2)) 5 2)+ 
right('0' + cast(datepart(ss,prt.DateTimeofPayment) as varchar(2)),2) 
20 + " + 'CIS ' + " + 

@StoreID 
+ *• + 

rightCOOOO' + cast(@KioskPCID+8000 as varchar(4)), 4) 

+ " 

25 as Part2, 

- SequenceNumber goes between Part2 and Part3 
" + 

cast(datepart(yy,prt.DateTimeofPayment) as varchar(4))+ 
right('0' + cast(datepart(mm,prt.DateTimeofPayment) as varchar(2)),2)+ 
30 right^'O' + cast(datepart(dd,prt.DateTimeofPayment) as varchar(2)),2) 

as Part3, 

bdt.BillDetailID as MultiPayBilllD, 
case bdtBillDetaillD 

when @MultiPayBillID then isnull(bdt.AptPayAmt, prt.PaymentAmount) 
35 else isnull(bdt.AptPayAmt, prt.PaymentAmount) - bdtServiceAmt 

end as ReportedPayment 

from 

BillDetailTransaction bdt 

join BillPay bp on bp.KioskPCID = bdt.KioskPCID and bp.BillDetailID = 
40 bdt.BillDetaiIID and bp.DateStamp = bdt.DateTimeofBillScan 

join PaymentRecordTransaction prt on bp.KioskPCID = pitKioskPCID and 
prt.PaymentRecordID = bp.PaymentRecordid and prt.DateTimeofPayment = bp.DateStamp 
join Mainsecurity.dbo.KiosKPCInfo kpc on kpc.KioskPCID = bdtKioskPCID 
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where 

prtpaymentrecordid = @PayID and 
prt.KioskPCID = @KioskPCID and 
bdtCompanyAccoimtTypelD = 1 and 
5 bdt.QBTed=10 

order by bdtkioskpcid, bdt.billdetailid 

open PaymentRecordSet 
fetch from PaymentRecordSet 
10 into @OutputPart 1 , @OutputPart2, @OutputPart3 , @MultiPayBillID ? 

@ReportedPayment 

select @PaymentRecordFetchStatus = @@fetch_status 



15 



select @mploop2 = 1 

while @PaymentRecordFetchStatus = 0 
begin 



if @ReportedPayment > 0 
20 begin 

select @SequenceNumber = @SequenceNumber + 1 
if @MultiPay SetCount > 1 

select @MultiPayFlag = char(@mploopl) + cast(@mploop2 as 



varchar(2)) 
25 else 



select @MultiPayFlag : 



- write actual record to file 
insert into ##HLP J>MT (OutputLine) 
30 values 

(@OutputPartl + @MultiPayFlag + @OutputPart2 + right('00000' + 
cast(@SequenceNumber as varchar(5))> 5)+ @OutputPart3) 

select @FileTotal = @FileTotal + @ReportedPayment 
35 select @BatchTotal = @BatchTotal + @ReportedPayment 

select @BatchRecordCount = @BatchRecordCount + 1 

end 

— don't forget to fetch the next one 
40 fetch next from PaymentRecordSet 

into @OutputPartl, @OutputPart2 ? @0utputPart3, @MultiPayBillID, 
@ReportedPayment 

select @PaymentRecordFetchStatus = @@fetch_status 
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select @mploop2 = @mploop2 + 1 

end 

5 close PaymentRecordSet 

deallocate PaymentRecordSet 

~ don't forget to fetch the next one 
fetch next from MultiPaySet 
10 into @PayID, @KioskPCID, @StoreID 

select @MultiPayFetchStatus = @@fetch_status 

select @mploopl = @mploopl + 1 

15 end 

close MultiPaySet 
deallocate MultiPaySet 

20 

-- write totals for the last batch 
update ##HLP_PMT 

set OutputLine = rightCOOOOO' + cast(@BatchRecordCount as varchar(5)),5) 
+ ' ' + 
25 case @FileType 

when TMT then '997 
when 'MEMO' then '887' 
end 

+ ' ' + 

30 rightCOOOOOOOOOOOOOO' + cast(cast(round((@BatchTotal * 100),0) as mt) as 

varchar(14)),14) 

+ substring(OutputLine , 13, 100) 

where OutputLine like 'BATCH HEADER%' 

35 -- write totals for the file 
update ##HLP_PMT 

set OutputLine = right('00000' + cast(@SequenceNumber as varchar(5)),5) 
+ ' • + 

rightCO' + cast(datepart(hh,getDateO) as varchar(2)),2)+ 
40 right('0' + cast(datepart(mi,getDateO) as varchar(2)),2)+ 

right('0' + cast(datepart(ss,getDateO) as varchar(2)),2) 
+ " + 

case @FileType 
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when 'PMT then '999' 
when 'MEMO' then '889' 
end 

+ ' • + 

5 rightCOOOOOOOOOOOOOO' + cast(cast(round((@FileTotal * 100),0) as int) as 

varchar(14)),14) 

+ substring(OutputLine , 12, 100) 
where OutputLine like TILE HEADER%* 

10 ~ write wire transfer number to table 
if@FileType = 'PMT* 
insert into 

MainSecurity.dbo.WireTransfers 

(Payee, WireDate, WireAmount, Comment) 

15 values 

('HL&P', dateadd(day,@WireOffset,getdate0), @FileTotal, 'Generated ' + 
convert(varchar,getdateO, 101)) 



20 insert into ##HLP_PMT (OutputLine) 
values 
('MMMM') 

~ print contents of temp table to disk file 
25 declare @BCPCommand varchar(200) 

select @BCPCommand = 'bcp "SELECT OutputLine FROM ##HLP_PMT order by id" 

queryout "'+ @FileName + "' /T /c' 

EXEC master.. xp_cmdshell @BCPCommand 

select @BCPCommand = 'move ' + @FileName + ' 
30 \\ASKVTS01\Transmissions\outgoing\HLPV 
EXEC master. .xp_cmdshell @BCPCommand 

insert into 

MainSecurity.dboJobRC 
35 (DateTime, ReturnCode, JobTxt, TxtComment) 

values 

(getdateO, 0, 'HL&P * + @FileType + ' file', 'File generated successfully.') 
SELECT OutputLine FROM ##HLP_PMT order by id 

40 

drop table ##HLP_PMT 
end ~ create proc 
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-EntexPMTfile 



jjc *£c sfc sjs ojc sjc 5|c s(c sjc 5jc sj? 5(c j|c «fc sjc pfc sfc «fc sfc s(c s{c j(c ?(c s(c 5|c sjc sfc sjc sjcsjcsfc^fcsfcsltsfcsjcsfcsilcsjcsfcsjc s]c ?jc *jc 5jc sjc sjc sjc «fc jj? sjc sjc ijc sjc ^sjc^jCtfjCf^sJc^sfc jJ* ^^^^^lijcjjisjssjcsjcslcsjc 

AG & RL 1 1/25/2000 : insert detail records into Entex_PMT table 
5 - RL 1 1/29/2000 : no insertion, wrap in header/footer 

RL 12/1 1/2000 : switch to print statements instead of selecting unions, print one batch per 
kiosk 

-- RL 01/08/2001 : change terminal id stuff at end of batch header 
RL 01/25/2001 : send output to text file on ASKVTS01 
10 ~ RL 01/27/2001 : use QBTed value to choose records to process 
RL 01/29/2001 : convert to stored procedure 

— RL 0 1/3 1 /200 1 : correct for two-part pay (was applying service charge on each pmt, not each 
bill) 

- RL 02/09/2001 : prevent reporting of zero payments 

15 - RL 02/10/2001 : prevent reporting of numbers <=0 ($1 payment - $1 svc chg) 
« RL 03/29/2001 : add datetime values to join conditions 

use MainKiosk 
go 

20 

drop proc prJEntex_PMT 
go 

create proc pr JEntex__PMT 
25 as begin 

- overhead for file creation 
create table ##ENTEX_PMT 

(id int identity, OutputLine varchar(200)) 
30 delete from ##ENTEX__PMT 

declare @FileName varchar(lOO) 

select @FileName = 'c:\askHarris_Entex_PMTJ + replace(convert(varchar, getdate(X 106), ' 
' ,") + + rightCO* + cast(datepart(hh,getdateO) as varchar(2)),2) + right('0' + 
35 cast(datepart(mi,getdateO) as varchar(2)),2) + '.rpt' 

— variables for wire transfer at end of procedure 
declare @WireOffset int 

if datename(dw,getdateO) in ('Thursday' /Friday') 
40 select @WireOffset = 4 

else 

select @WireOffset = 2 
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declare @BatchTotal float 
declare @RecordCount int 
declare @BatchKiosk int 
declare @OutputLine varchar(200) 
5 declare @FileTotal float 

declare @FileRecordCount int 
declare @BatchCount int 

— totals for file trailer record 
10 select 

@FileTotal = 0, 
@FileRecordCount = 0 

- find batches for looping 
15 - batch by kiosk 

declare BatchCursor cursor for 
select distinct KioskPCID 
from 

BillDetailTransaction 
20 WHERE 

(BillDetailTransaction.CompanyAccountTypeId = f 2' OR 

BillDetailTransaction.CompanyAccountTypeld = '9') and 

BillDetailTransaction.QBTed = 10 
order by 
25 KioskPCID 

open BatchCursor 

fetch from BatchCursor into @BatchKiosk 

30 select @BatchCount = 0 

while @@fetch_status = 0 
begin 

35 select @BatchCount = @BatchCount + 1 

- figure numbers for header/footer 

select @BatchTotal = sum(fieldl), @RecordCount = count(*) 
from (select 

40 isnull((sum(PaymentRecordTransaction. Payment Amount) 

max(BillDetailTransaction.ServiceAmt)) ? 0) as fieldl 
FROM 

BillDetailTransaction 
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JOIN BillPay ON BillDetailTransaction.BillDetailId = BillPay .BillDetailld and 
BillPay.KioskPCID = BillDetailTransaction.KioskPCID and BillPay DateStamp = 
BillDetailTransaction.DateTimeofBillScan 

JOIN PaymentRecordTransaction ON BillPay.PaymentRecordld = 
5 PaymentRecordTransaction. PaymentRecordld and BillPay.KioskPCID = 
PaymentRecordTransaction.KioskPCID and BillPay .DateStamp = 
PaymentRecordTransaction.DateTimeofPayment 
WHERE 

(BillDetailTransaction.CompanyAccountTypeld = f 2' OR 
1 0 BillDetailTransaction.CompanyAccountTypeId = '9 f ) and 

BillDetailTransaction.KioskPCID = @BatchKiosk and 
BillDetailTransaction.QBTed =10 and 
PaymentRecordTransaction.PaymentAmount > 0 
group by BillDetailTransaction.billdetailid 
15 having (sum (payment re cord trans action. Payment Amount) 

max(billdetailtransaction.ServiceAmt)) > 0) foo 

select @FileTotal = @FileTotal + @BatchTotal 

20 -Record Type B 

— Batch Header 

insert into ##ENTEX_PMT (OutputLine) 

values 

( «' 

25 + — as RecordTypeCode, 

! 40 f 

+ — as DivisionCode, 
'030' 

+ - as OfficeCode, 
30 '00096' 

+ — as BatchNuxnber, 

right('0000000000' + cast(cast(round((@BatchTotal * 100),0) as int) as 
varchar(10)),10) 

+ - as BatchTotal, 

35 right^O' + cast(datepart(mm ? dateadd(day, 1, getdateO)) as varchar(2)) ? 2) + 

right( ! 0 f + cast(datepart(dd,dateadd(day, 1, getdateO)) as varchar(2)),2) + 
cast(right(datepart(yy,dateadd(day, 1, getdate())) ? 2) as char(2)) 
+ as BatchDate, 

right('0' + cast(datepart(mm,dateadd(day ? 1, getdateO)) as varchar(2)) ? 2) + 
40 rightCO' + cast(datepart(dd,dateadd(day, 1, getdateO)) as varchar(2)),2) + 

cast(right(datepart(yy ? dateadd(day, 1, getdate0)),2) as char(2)) 
+ — as ProcessingDate, 

'AS' + rightCOOOO 1 + cast(@BatchKiosk as varchar(4)), 4) 
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+ — as OriginationPoint, 
as Filler 



) 



— Record Type D 
Payment Detail 
declare DetailCursor cursor for 
SELECT 
10 'D' 

+ — as RecordType, 

cast(max(BillDetailTransaction.BillAccountNumber) as char(l 1)) 

+ — as CustomerAccountNumber, 

'030' 

15 + - as OfficeCode, 

right('000000000' + 
cast(cast(round(((sum(PaymentRecordTransaction. Payment Amount) - 
max(BillDetailTransaction.ServiceAmt)) * 100),0) as int) as varchar(9)) ? 9) 
+ - as AmountPaid, 

20 rightCO' + cast(datepart(mm,dateadd(day, 1, getdateO)) as varchar(2)),2) + 

rightCO' + cast(datepart(dd ? dateadd(day ? 1, getdateO)) as varchar(2)) 5 2) + 
cast(right(datepart(yy 3 dateadd(day, 1, getdate())),2) as char(2)) 
+ -- as AgentDate, 

right( f 0 f + cast(datepart(mm ? max(BillDetailTransaction.PaybyDate)) as 
25 varchar(2)) ? 2) + 

right( ! 0 ? + cast(datepart(dd J max(BillDetailTransaction.PaybyDate)) as 
varchar(2)),2) + 

cast(right(datepart(yy,max(BillDetailTransaction.PaybyDate)),2) as char(2)) 
+ — as DueDate, 

30 case max(BillDetailTransaction.CompanyAccountTypeId) 

when '2' then 'G' 
when '9' then 'M' 

end 

+ as TypeOfBill, 

35 

as Filler 

FROM 

BillDetailTransaction 

JOIN BillPay ON BillDetailTransaction.BillDetailld = BillPay.BillDetailld and 
40 BillPay.KioskPCID = BillDetailTransaction.KioskPCID and BillPay.DateStamp = 
BillDetailTransaction.DateTimeofBillScan 

JOIN PaymentRecordTransaction ON BillPay.PaymentRecordld = 
PaymentRecordTransaction.PaymentRecordld and BillPay.KioskPCID = 
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PaymentRecordTransaction.KioskPCID and BillP ay .Date Stamp 
PaymentRecordTransaction.DateTimeofPayment 
WHERE 

(BillDetailTransaction.CompanyAccountTypeId = '2' OR 
5 BillDetailTransaction.CompanyAccountTypeId = '9') and 

BillDetailTransaction.KioskPCID = @BatchKiosk and 
BillDetailTransaction.QBTed = 10 and 
PaymentRecordTransaction.PaymentAmount > 0 
group by BillDetailTransaction.billdetailid 
10 having ( s um (pay m e ntr e co r dt r an s act ion. Payment Amount) 

max(billdetailtransaction.ServiceAmt)) > 0 

open DetailCursor 
fetch from DetailCursor 
15 into @OutputLine 

while @@fetch_status = 0 
begin 

select @FileRecordCount = @FileRecordCount + 1 
20 insert into ##ENTEXJPMT (OutputLine) 

values (@OutputLine) 
fetch next from DetailCursor 
into @OutputLine 

end 

25 

close DetailCursor 
deallocate DetailCursor 



30 fetch next from BatchCursor 

into @BatchKiosk 

end 

35 close BatchCursor 

deallocate BatchCursor 

— Record Type T 

— Batch Trailer 

40 insert into ##ENTEX_PMT (OutputLine) 
values 
( T 

+ — as RecordType, 
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10 



5 



right( f 0 r + cast(datepart(mm,dateadd(day, 1, getdateO)) as varchar(2)),2) + 

right( f O' + cast(datepart(dd,dateadd(day, 1, getdateO)) as varchar(2)),2) + 

cast(right(datepart(yy 5 dateadd(day ? 1, getdate0)),2) as char(2)) 

+ -- as DateTransactionClosed, 

right( r 000' + cast(@BatchCount as varchar(3)),3) 

+ — as NumberOfBatches, 

rightCOOOOOOOO 1 + cast(@FileRecordCount as varchar(8)),8) 
+ ~ as NumberOfDetailRecords, 

right( f 0000000000' + cast(cast(round((@FileTotal * 100),0) as int) as varchar(10)),10) 
+ — as TotalAmountOfPayments, 



+ - as AgencyName, 



as Filler 



15 



) 



— write wire transfer number to table 
insert into 



MainSecurity.dbo.WireTransfers 



20 



(Payee, WireDate, WireAmount, Comment) 

values 



('Entex', dateadd(day ? @WireOffset ? getdate0) ? @FileTotal, 'Generated ' + 
convert(varchar,getdate(), 101)) 

25 — print contents of temp table to disk file 
declare @BCPCommand varchar(200) 

select @BCPCommand = 'bcp "SELECT OutputLine FROM ##ENTEX_PMT order by id" 

queryout '"+ @FileName + m IT /c' 

EXEC master, .xp^cmdshell @BCPCommand 



select @BCPCommand = 'move 1 + @FileName + 

\\ASKVTS01\Transmissions\outgoing\EntexV 

EXEC master. .xp_cmdshell @BCPCommand 

35 insert into 

MainSecurity.dboJobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

values 

(getdateQ, 0, 'Entex PMT file', 'File generated successfully. 1 ) 



30 



40 



drop table ##Entex_PMT 



end ~ create proc 
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- Entex NSF report 

- Human-readable report, since Entex has no automated NSF process 

5 - RL 01/10/2001 : query written as example 

- RL 01/19/2001 : store name/number added, with return code 
RL 01/25/2001 : send output to text file on ASKVTS01 

~ RL 01/27/2001 : use QBTed value to choose records to process 
-- RL 01/29/2001 : convert to stored procedure 
10 RL 03/14/2001 : correct conditions on NSF query 

- RL 03/29/2001 : add datetime values to join conditions 

use MainKiosk 
go 

15 

drop proc pr_Entex_NSF 
go 

create proc pr_Entex_NSF 
20 as begin 

- overhead for file creation 
create table ##ENTEX_NSF 

(id int identity, OutputLine varchar(200)) 
25 delete from ##ENTEX__NSF 

declare @FileName varchar(lOO) 

select @FileName = 'c:\askHairis_Entex J^SFhumanJ + replace(convert(varchar, getdateQ, 
106), ' ' /') + '-' + rightCO' + cast(datepart(hh,getdateO) as varchar(2)),2) + right('0' + 
30 cast(datepart(mi,getdateO) as varchar(2)),2) + '.txt' 

declare @ReturnedAmount float 
declare @ReturnedTotal float 
declare @ReturnedCount int 

35 

select @ReturnedAmount = 0, 
@ReturnedTotal - 0, 
@ReturnedCount = 0 

40 declare @OutputLine varchar(200) 

insert into ##ENTEX_NSF (OutputLine) 
values (") 
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insert into ##ENTEX_NSF (OutputLine) 
values ('askHarris.com') 
insert into ##ENTEX_NSF (OutputLine) 
values ('RETURNED CHECK REPORT') 
5 insert into ##ENTEX_NSF (OutputLine) 
values ('for Reliant Entex') 
insert into ##ENTEX_NSF (OutputLine) 
values ('Generated ' + convert(varchar, getdateO)) 
insert into ##ENTEX_NSF (OutputLine) 
10 values (") 

insert into ##ENTEX_NSF (OutputLine) 

values (' Payment Store 
Store') 

insert into ##ENTEX_NSF (OutputLine) 
15 values (' Date Account # Amount Name TDL Receipt # Code 

Chain Name ') 

insert into ##ENTEX_NSF (OutputLine) 



values 



20 



declare NSFCursor cursor for 



25 



40 



30 



35 



select 

convert(char(10), prtDateTimeofPayment, 101) 
4- 1 1 + as PaymentDate, 
bdt.BillAccountNumber 
+ ' ' + as AccountNumber 

convert(char(12), prt.PaymentAmount - bdt.ServiceAmt, 0) 

+ 1 ' + — as PaymentAmount, 

cast(replace(cit.Name, r $ f , f ') as char(30)) 

+ 1 1 + -- as CustomerName, 

citidentificationNumber 

+ '' + -- as TDL, 

cast(rdt.ReceiptNumber as char(14)) 

+ ! 1 + -- as ReceiptNumber, 

rc.ReturnCode 

+ f ' + — as ReturnCode, 

cast(scp.StoreChainName as char(20)) 

+ ' * + as StoreChain, 

sm.StoreName, 

- as StoreName 

prt.PaymentAmount - bdt. Service Amt as ReturnedAmount 



from 

PaymentRecordTransaction prt 
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join ReturnedChecks rc on prt.PaymentRecordID = rcPaymentRecordlD and 
prt.KioskPCID = rc.KioskPCID 

join BillPay bp on prtPaymentRecordlD = bp.PaymentRecordID and prtKioskPCID 
= bp.KioskPCID and prtDateTimeofPayment = bp.DateStamp 
5 joinBUlDetailTransactionbdtonbdt3mDetaiUD=bp3illDetailIDan^ 
= bp.KioskPCID and bdt.DateTimeofBillScan = bp.DateStamp 

join CustomerldentificationTransaction cit on cit.CustomerldentificationID = 
prt.CustomerldentificationID and cit.KioskPCID = prtKioskPCID 

join ReceiptBill rb on rb.KioskPCID = bp.KioskPCID and rb.BillPayld = bp.BillPaylD 
10 and rb.DateStamp = bp.DateStamp 

join ReceiptDetailTransaction rdt on rdtKioskPCID = rb.KioskPCID and 
rdt.ReceiptDetaillD = rb.ReceiptDetaillD and rdt.DateTimeofReceiptIssue = rb.DateStamp 

join MainSecurity.dbo.KioskPCInfo kpc on kpcKioskPCID = prt.KioskPCID 

join MainSecurity.dbo.KiosklnfoMaster kirn on kpc.KioskID = kim.KiosklnfoID 
15 join MainSecurity.dbo.StoreChainProfileMaster scp on kim.StoreChainProfilelD = 

scp. StoreChainProfilelD 

join MainSecurity.dbo.StoreMaster sm on sm.StorelD = kim.StorelD 

join MainSecurity.dbo.AddressMaster am on am.StorelD = kim.StorelD 

where 

20 bdtCompanyAccountTypeld in (2,9) and 

rc.QBTed=10 
order by 

prt.DateTimeofPayment 



25 open NSFCursor 

fetch from NSFCursor into @OutputLine, @ReturnedAmount 

while @@fetch_status = 0 
begin 

30 select @ReturnedTotal = @ReturnedTotal + @ReturnedAmount 

select @ReturnedCount = @ReturnedCount + 1 

insert into ##ENTEX_NSF (OutputLine) 
values (@OutputLine) 
35 fetch next from NSFCursor into @OutputLine, @ReturnedAmount 

end 



close NSFCursor 
deallocate NSFCursor 

insert into ##ENTEX_NSF (OutputLine) 
values (") 

insert into ##ENTEX_NSF (OutputLine) 
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10 



5 




1 + convert(char(12), cast(@ReturnedCount * 2 as money), 



+ convert(char(5), @ReturnedCount, 0) + 



1 + + convert(char(12), cast(@RetumedCount as 



values 



c— — 

— o 



insert into ##ENTEX_NSF (OutputLine) 
values (TOTAL 



' + convert(char(12), cast(@ReturnedTotal + 



(@ReturnedCount * 3) as money), 0)) 
insert into ##ENTEX_NSF (OutputLine) 

20 values (") 

insert into ##ENTEX_NSF (OutputLine) 
values ('ACH Payment Instructions:') 
insert into ##ENTEX_NSF (OutputLine) 
values ('Account: askHarris.com') 

25 insert into ##ENTEX_NSF (OutputLine) 
values ('Bank : Chase Bank of Texas') 
insert into ##ENTEX_NSF (OutputLine) 
values ('ABA # : 111000609') 
insert into ##ENTEX_NSF (OutputLine) 

30 values CAccount #308025361 34*) 



— print contents of temp table to disk file 
35 declare @BCPCommand varchar(200) 

select @BCPCommand = *bcp "SELECT OutputLine FROM ##ENTEX_NSF order by id" 

queryout '"+ @FileName + "' IT /c' 

EXEC master..xp_cmdshell @BCPCommand 

40 select @BCPCommand = 'move ' + @FileName + ' 
\\ASKVTS01\Transmissions\outgoing\EntexV 
EXEC master.. xp cmdshell @BCPCommand 
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insert into 

MainSecurity.dboJobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

values 

5 (getdateO, 0, 'Entex NSF file', 'File generated successfully.') 

drop table ##Entex_NSF 
end — create proc 
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- CHWNSF detail report 

- to be faxed to cashiers 

5 --RL 01/1 7/2001 : file created, just query 

- RL 01/18/2001 : use cursors, generate totals, print 

-- RL 01/25/2001 : send output to text file on ASKVTS01 

- RL 01/27/2001 : use QBTed value to choose records to process 

- RL 01/29/2001 : convert to stored procedure 

10 RL 03/29/2001 : add datetime values to join conditions 

use MainKiosk 
go 

1 5 drop proc pr_CHW_NSF_report 
go 

create proc pr_CHW_NSF_report 
as begin 

20 

- overhead for file creation 
create table ##CHW_FAX 

(id int identity, OutputLine varchar(200)) 
delete from ##CHWFAX 
25 declare @FileName varchar( 100) 

select @FileName = f c:\askHarrisJI!HWJSfSFhuinanJ + replace(convert(varchar, getdate(), 
106), 1 ' ,") + + right('0' + cast(datepart(hh,getdateO) as varchar(2)),2) + rightCO' + 
cast(datepart(mi,getdateQ) as varchar(2)),2) + '.txt' 



declare @OutputLine varchar(200) 
declare @CheckCount float 
declare @CheckAmount money 
35 declare @CheckTotal money 
declare @BankFee money 
declare @BankTotal money 

select @CheckCount = 0 
40 select @CheckAmount = 0 
select @CheckTotal = 0 
select @BankFee = 0 
select @BankTotal = 0 
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declare Something cursor for 
select 

' ' + cast(scp.StoreChainName + " + cast(right(sm.StoreName,3) as char(3)) as char(20)) 
+ ' ' + - as StorelD, 
5 bdt.BillAccountNumber 
+ ' ' + - as AccountNbr, 

convert(char(12), (prt.PaymentAmount - bdt.ServiceAmt - IsNull(bdt.Donation, 0)), 0) 
+ ' ' + -- as PaymentAmount, 
' 2.00' 

10 +' ' + -- as BankFee, 

convert(char(12), (2 +prt.PaymentAmount - bdt. Service Amt - IsNull(bdt.Donation, 0)), 

0) 

+ ' ' + -- as Total, 

rcReturnCode + ' * + prt.CheckRoutingNumber 

15 as Parti, 

prt.PaymentAmount - bdt.ServiceAmt - IsNull(bdt.Donation, 0) as CheckAmount, 

2 as BankFee 

from 

BillDetailTransaction bdt 

20 JOIN BillPay bp ON bdtBillDetailld = bp.BillDetailId and bdtKioskPCID = 

bp.KioskPCID and bdt.DateTimeofBillScan = bp.DateStamp 

JOIN PaymentRecordTransactionprt ON bp.PaymentRecordld = prtPaymentRecordld 
and bp.KioskPCID = prt.KioskPCID and bp.DateStamp = prt.DateTimeofPayment 

JOIN ReturnedChecks rc on rc.KioskPCID = prt.KioskPCID and rcPaymentRecordlD 

25 = prtPaymentRecordlD 

join MainSecurity.dbo.KioskPCInfo kpc on kpc.KioskPCID = prt.KioskPCID 
join MainSecurity.dbo-KiosklnfoMaster kirn on kpc.KioskID = kim.KiosklnfoID 
join MainSecurity.dbo.StoreChainProfileMaster scp on kim.StoreChainProfilelD = 

scp. StoreChainProfilelD 
30 join MainSecvirity.dbo.StoreMaster sm on sm. StorelD = kim.StoreID 

where 

bdt.CompanyAccountTypelD = 4 and 
rc.QBTed=10 
order by 

35 prt.DateTimeofPayment 

insert into ##CHW_FAX (OutputLine) 
values (") 

insert into ##CHW_FAX (OutputLine) 
40 values ('askHarris.com') 

insert into ##CHW_FAX (OutputLine) 
values ('RETURNED CHECK REPORT*) 
insert into ##CHW_FAX (OutputLine) 
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values (Tor City of Houston 1 ) 
insert into ##CHWJFAX (OutputLine) 
values ('Generated 1 + convert(varchar, getdateO)) 
insert into ##CHW_F AX (OutputLine) 
5 values (") 

insert into ##CHW_FAX (OutputLine) 

values ( f Check Bank Return Bank') 

insert into ##CHW_FAX (OutputLine) 

values (' Store Account Amount Fee Total Code ABA ') 

10 insert into ##CHW_FAX (OutputLine) 

values (' ' ) 



open Something 

15 fetch from Something into @OutputLine, @CheckAmount, @BankFee 

while @@fetch_status = 0 
begin 

20 select @CheckCount = @CheckCount + 1 

select @CheckTotal = @CheckTotal + @CheckAmount 
select @BankTotal = @BankTotal + @BankFee 

insert into ##CHW_FAX (OutputLine) 
25 values (@OutputLine) 

fetch next from Something into @OutputLine, @CheckAmount, @BankFee 

end 

close Something 
30 deallocate Something 

insert into ##CHW_FAX (OutputLine) 
values (") 

insert into ##CHW_FAX (OutputLine) 
35 values 

c ') 

insert into ##CHW_FAX (OutputLine) 
values (") 

insert into ##CHW_FAX (OutputLine) 
40 values (Totals: ' + str(@CheckCount, 10) + ' checks ' + convert(char(l 2), @CheckTotal) 
+ * ' + convert(char(8), @BankTotal) + ' ' + convert(char(12), (@CheckTotal + @BankTotal))) 
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~ print contents of temp table to disk file 
declare @BCPCommand varchar(200) 

select @BCPCommand = *bcp "SELECT OutputLine FROM ##CHW_FAX order by id" 
queryout "'+ @FileName + IT /c' 
5 EXEC master. .xp_cmdshell @BCPCommand 

select @BCPCommand = 'move ' + @FileName + ' 

\\ASKVTS01\Transmissions\outgoing\CHW\' 

EXEC master..xp_cmdshell @BCPCommand 

10 

drop table ##CHW_FAX 

insert into 

MainSecurity.dbo.JobRC 
15 (DateTime, ReturnCode, JobTxt, TxtComment) 

values 

(getdateO, 0, "CHWNSF fax', 'File generated successfully.') 
end ~ create proc 

20 
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-- City of Houston Water PMT file 



********************************************************** 

- AG & RL 1 1/25/2000 : insert detail records to CHW_PMT table 
5 - RL 1 1/29/2000 : no insertion, wrap in header/footer 

-- RL 12/12/2000 : use cursors/print, generate sequence number, account for service charge and 
water fund donation 

- RL 01/16/2001 : database changes (donation field) 

-- RL 01/16/2001 : QBTed value of 1 for first day of PMT testing, 2 for second, 3 for third. 
10 - RL 01/16/2001 : file generates follow-on NSF batch, based on the handmade one from earlier 
test 

-- RL 01/25/2001 : send output to test file on ASKVTS01, create file to be faxed to CHW 
operations 

-- RL 01/27/2001 : use QBTed value to choose records to process 
15 -- RL 01/29/2001 : convert to stored procedure 

- RL 02/03/2001 : correct for mixed payments (one payment, one service charge) 
~ RL 02/09/2001 : prevent reporting of zero payments 

- RL 02/10/2001 : prevent reporting of amounts <=0 ($1 payment - $1 svc chg) 

- RL 02/20/2001 : report donation amount in payment field (as well as in its own field) 
20 -- RL 03/20/2001 : change file total to PMTs - NSFs, instead of PMTs + NSFs 

-- RL 03/29/2001 : add datetime values to join conditions 

use MainKiosk 
go 

25 

drop proc pr_CHW_PMT_NSF 
go 

create proc pr_CHW_PMT_NSF 
30 as begin 

~ overhead for file creation 
create table ##CHW_PMT 
(id int identity, OutputLine varchar(200)) 
35 delete from ##CHW_PMT 

declare @FileName varchar(lOO) 

select @FileName = 'c:\asfflams_CHW_PMT_' + replace(convert(varchar, getdateO, 106), ' 
' ,") + '-' + rightCO' + cast(datepart(hh,getdateO) as varchar(2)),2) + right('0' + 
40 cast(datepart(mi,getdateO) as varchar(2)),2) + \rpt' 

~ variables for wire transfer at end of procedure 
declare @WireOffset int 
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if datename(dw,getdate()) in (ThursdayVFriday') 
select @WireOffset = 4 

else 

select @WireOffset = 2 

5 

declare @OutputPartl varchar(200) 
declare @0utputPart2 varchar(200) 
declare @SequenceNumber int 

10 declare @PMTBatchTotal float 

declare @PMTItemCount int 

declare @NSFBatchTotal float 

declare @NSFItemCount int 

declare @FileTotal float 
15 declare @FileItemCount int 

declare @PaymentAmount float 

select 

@PMTBatchTotal = 0, 
20 @PMTItemCount = 0, 

@NSFBatchTotal = 0, 
@NSFItemCount-0 



25 Record Type 1 

— File Header 

insert into ##CHW_PMT (OutputLine) 
values 

( T 
30 + — as RecordType, 

right( f 0 f + cast(datepart(mm ? getdateO) as varchar(2)) ? 2)+ 
rightCO' + cast(datepart(dd 5 getdateO) as varchar(2)),2)+ 
right(cast(datepart(yy ? getdateO) as varchar(4)),2) 
4- — as FileDate, 
35 'HARRIS' 

as FileDescriptor 

) 

— begin PMT batch 

40 

« Record Type 2 

— Batch Header 

insert into ##CHW_PMT (OutputLine) 
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values 
( '2' 



+ - as RecordType, 

right( f 0' + cast(datepart(mm,getdate()) as varchar(2)),2)+ 
5 rightCO' + cast(datepart(dd 3 getdate()) as varchar(2)),2)+ 

right(cast(datepart(yy,getdate()) as varchar(4)),2) 
+ — as FileDate, 
'0' 

+ — as BatchPrefix, 
10 77001' 

- 77001 - 77799 : regular payment batches 

— 77800 : credit adjustment batch 

— 77946 : debit adjustment batch 
~ 77945 :NSF batch 

15 + - as BatchNumber, 

'PMT ' 

- ADJCDT : credit batch 

- ADJDBT: debit batch 

— NSFAD J : NSF batch 
20 — as FileDescriptor 



— Record Type 5 

- Detail 

25 declare DetailCursor cursor for 
SELECT 
'5' 

+ — as RecordType, 

rightCO' + cast(datepart(mm ? getdateO) as varchar(2)),2)+ 
30 right('0' + cast(datepart(dd,getdateO) as varchar(2)),2)+ 

right(cast(datepart(yy 5 getdateO) as varchar(4)),2) 
+ — as FileDate, 
'0 f 

+ - as BatchPrefix, 
35 77001' 

77001 - 77799 : regular payment batches 

— 77800 : credit adjustment batch 
« 77946 : debit adjustment batch 

- 77945: NSF batch 
40 — as BatchNumber, 

as Parti, 

right(*0000000000 ! + cast(cast(round(((sum(prt.PaymentAmount) 
max(bdt.ServiceAmt)) * 100),0) as int) as varchar(10)),10) 
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+ as PaymentAmount, 
+ as Filler 1, 

rightCOOOOOOO' + cast(cast(round((IsNull(max(bdt.Donation), 0) * 100),0) as int) as 
5 varchar(7)),7) 

— ********** water fund donation amount 
+ asFiller2, 

left(max(bdt.BillAccountNumber) 3 11) 
+ - as AccountNumber, 
10 right(max(bdt.BillAccountNuniber), 1) 

+ — as CheckDigit, 

right( ! 0' + cast(datepart(mm,max(prt.DateTimeofPayment)) as varchar(2)),2)+ 
right('O f + cast(datepart(dd,max(prt.DateTimeofPayment)) as varchar(2)) ? 2) 
+ — as PayDate, 
15 T 

— 1 : credit 
2 : debit 

+ - as PayMethod, 
CASE count(*) 
20 WHEN 1 THEN 

CASE max(prt.PaymentTypeID) 
WHEN 1 THEN '0' - cash 
WHEN 2 THEN T check/money order 
END 

25 ELSE '2 f — combination payment 

END 

+ ~ as PayType, 

right('0' + cast(datepart(hh,max(prt.DateTimeofPayment)) as varchar(2)),2)+ 
right('0' + cast(datepart(mi,max(prt.DateTimeofPayment)) as varchar(2)) ? 2)+ 
30 rightCO' + cast(datepart(ss,max(prt.DateTimeofPayment)) as varchar(2)) 5 2) 

as PayTime 
as Part2 s 

(sum(prt.PaymentAmount) - max(bdt Service Amt)) as PaymentAmount 

FROM 

35 BillDetailTransaction bdt 

JOIN BillPay bp ON bdtBillDetailld = bp.BillDetailld and bdt.KioskPCID = 
bp.KioskPCID and bdt.DateTimeofBillScan = bp.DateStamp 

JOIN PaymentRecordTransaction pit ON bp.PaymentRecordld = prtPaymentRecordld 
and bp.KioskPCID = prtKioskPCID and bp.DateStamp = prt.DateTimeofPayment 
40 WHERE 

bdt Company AccountTypeld = *4 ? and 
bdt.QBTed=10and 
prt.PaymentAmount > 0 
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group by bdtbilldetailid, bdt.kioskpcid 

having (sum(prt.PaymentAmount) - max(bdt.ServiceAmt)) > 0 

order by 

max(prt.DateTimeofPayment) 

5 

open DetailCursor 
fetch from DetailCursor 

into @OutputPartl, @OutputPart2, @PaymentAmount 

10 select @SequenceNumber = 0 

while @@fetch_status = 0 
begin 

select @SequenceNumber = @SequenceNumber + 1 
15 select @PMTItemCount = @PMTItemCount + 1 

select @PMTBatchTotal = @PMTBatchTotal + @PaymentAmount 

insert into ##CHW_PMT (OutputLine) 

values 

(@OutputPartl + right('0000' + cast(@SequenceNumber as varchar(4)),4) + 
20 @OutputPart2) 

fetch next from DetailCursor 

into @OutputPartl, @OutputPart2 3 @PaymentAmount 

25 end 

close DetailCursor 
deallocate DetailCursor 

30 - Record type 8 
- Batch Trailer 

insert into ##CHW_PMT (OutputLine) 
values 
35 ( '8' 

+ — as RecordType, 

rightCO' + cast(datepart(mm ? getdateO) as varchar(2)),2)+ 
rightCO 1 + cast(datepart(dd ? getdateO) as varchar(2)),2)+ 
right(cast(datepart(yy ? getdateO) as varchar(4)) 5 2) 
40 + as FileDate, 

'0' 

+ - as BatchPrefix, 
77001' 
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— 77001 - 77799 : regular payment batches 
77800 : credit adjustment batch 

77946 : debit adjustment batch 

- 77945 : NSF batch 

5 + - as BatchNumber, 

T 

+ — as PaymentMethod, 



+ as Filler 1, 

10 right('0000000000 ! + cast(cast(round((@PMTBatchTotal * 100),0) as int) as 

varchar(10)),10) 

+ — as BatchTotal, 

+ -- as Filler2, 
15 right('00000' + cast(@PMTItemCount as varchar(5)),5) 

+ — as ItemCount, 

'oor 

as BatchNumber 



20 



-- begin NSF batch 



~ Record Type 2 
~ Batch Header 
25 insert into ##CHW_PMT (OutputLine) 
values 
( '2* 

+ — as RecordType, 

right('0' + cast(datepart(mm,getdateO) as varchar(2)),2)+ 
30 right('0' + cast(datepart(dd,getdateO) as varchar(2)),2)+ 

right(cast(datepart(yy,getdateO) as varchar(4)),2) 
+ ~ as FileDate, 
*0' 

+ ~ as BatchPrefix, 
35 77945* 

-- 77001 - 77799 : regular payment batches 

- 77800 : credit adjustment batch 
-- 77946 : debit adjustment batch 

- 77945 : NSF batch 
40 + — as BatchNumber, 

'NSFADJ' 

- ADJCDT : credit batch 

- ADJDBT : debit batch 
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-NSFADJ:NSF batch 
as FileDescriptor 

) 

5 — Record Type 5 
Detail 

declare DetailCursor cursor for 
SELECT 
'5' 

10 + -- as RecordType, 

right( r O f + cast(datepart(mm,getdate()) as varchar(2)),2)+ 

right( r 0' + cast(datepart(dd,getdate()) as varchar(2)),2)+ 

right(cast(datepart(yy 3 getdateO) as varchar(4)) ? 2) 

+ -- as FileDate, 
15 '0' 

+ ~ as BatchPrefix, 

77945' 

- 77001 - 77799 : regular payment batches 
» 77800 : credit adjustment batch 

20 - 77946 : debit adjustment batch 

-- 77945 : NSF batch 

as BatchNumber, 
as Parti, 

right('0000000000 ! + cast(cast(round(((prt.PaymentAmount - bdt.ServiceAmt - 
25 IsNull(bdt.Donation, 0)) * 100),0) as int) as varchar(10)),10) 
+ — as PaymentAmount, 

+ — as Filler 1 ? 

right( ? 0000000 ? + cast(cast(round((IsNull(bdt.Donation ? 0) * 100),0) as int) as 
30 varchar(7)),7) 

********** wa t er donation amount 

+ — as Filler2, 
left(bdt.BillAccountNumber ? 11) 
+ — as AccountNumber, 
35 right(bdt.BillAccountNumber ? 1) 

+ as CheckDigit, 

right( r 0 ! + cast(datepart(mm,prt.DateTimeofPayment) as varchar(2)),2)+ 
rightCO 1 + cast(datepart(dd 3 prt.DateTimeofPayment) as varchar(2)),2) 
+ — as PayDate, 
40 T 

— 1 : credit 
2 : debit 

+ - as PayMethod, 
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T — check/money order 
+ - as Pay Type, 

right( r O f + cast(datepart(hh,prt.DateTimeofPayment) as varchar(2)),2)+ 
rightCO 1 + cast(datepart(mi ? prt.DateTimeofPayment) as varchar(2)),2)+ 
5 right('0' + cast(datepart(ss,prt.DateTimeofPayment) as varchar(2)),2) 

as Pay Time 
as Part2, 

(prtPaymentAmount - bdtServiceAmt - IsNull(bdt.Donation, 0)) as PaymentAmount 

FROM 

10 BillDetailTransaction bdt 

JOIN BillPay bp ON bdt.BillDetailld = bp.BillDetailld and bdt.KioskPCID = 
bp.KioskPCID and bdt.DateTimeofBillScan = bp.DateStamp 

JOIN PaymentRecordTransaction prt ON bp.PaymentRecordld = prtPaymentRecordld 
and bp.KioskPCID = prt.KioskPCID and bp.DateStamp = prt.DateTimeofPayment 
15 join ReturnedChecks rc on prt.PaymentRecordID = rc.PaymentRecordID and 

prtKioskPCID = rc.KioskPCID 
WHERE 

bdt.CompanyAccountTypeId = f 4' and 
rc.QBTed=10 
20 order by 

prtDateTimeofPayment 

open DetailCursor 
fetch from DetailCursor 
25 into @OutputPartl, @OutputPart2 5 @PaymentAmount 

select @SequenceNumber = 0 

while @@fetch_status = 0 
30 begin 

select @SequenceNumber = @SequenceNumber + 1 
select @NSFItemCount - @NSFItemCount + 1 
select @NSFBatchTotal = @NSFBatchTotal + @PaymentAmount 
insert into ##CHW_PMT (OutputLine) 
35 values 

(@OutputPartl + rightCOOOO 1 + cast(@SequenceNumber as varchar(4)) ? 4) + 
@OutputPart2) 

fetch next from DetailCursor 
40 into @OutputPartl ? @OutputPart2 5 @PaymentAmount 

end 
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close DetailCursor 
deallocate DetailCursor 

— Record type 8 
5 ~ Batch Trailer 

insert into ##CHW_PMT (OutputLine) 
values 
( '8' 
10 + - as RecordType, 

right^O 1 + cast(datepart(mm ? getdateO) as varchar(2)),2)+ 

right( f 0 ! + cast(datepart(dd,getdate()) as varchar(2)),2)+ 

right(cast(datepart(yy ? getdateO) as varchar(4)),2) 

+ - as FileDate, 
15 f 0* 

+ - as BatchPrefix, 

77945' 

— 77001 - 77799 : regular payment batches 

— 77800 : credit adjustment batch 
20 - 77946 : debit adjustment batch 

77945 : NSF batch 
+ — as BatchNumber, 
T 

+ ~ as PaymentMethod, 
25 ' 1 

+ -- as Filler 1, 

right( r 0000000000 ! + cast(cast(round((@NSFBatchTotal * 100),0) as int) as 
varchar(10)) ? 10) 

+ - as BatchTotal, 
30 ' ! 

+ — as Filler2, 

right('00000 ! + cast(@NSFItemCount as varchar(5)) 3 5) 

+ — as ItemCount, 

T 002 f 

35 ~ as BatchNumber 

) 

-- Record Type 9 
~ File Trailer 
40 insert into ##CHW_PMT (OutputLine) 
values 
( '9' 

+ - as RecordType, 
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1 



t 



+ -- as Filler 1, 
T 

+ -- as PayMethod, 
5 ' f 

+ — as Filler2 ? 

rightCOOOOOOOOOO' + cast(cast(round(((@PMTBatchTotal - @NSFBatchTotal) * 1 00),0) 
as int) as varchar(10)),10) 

+ — as BatchTotal, 
10 f ' 

+ — as Filler3, 

right('00000' + cast((@PMTItemCount + @NSFItemCount) as varchar(5)),5) 

+ — as ItemCount, 

'002' 

15 - as BatchCount 

) 

— write wire transfer number to table 
insert into 

20 MainSecurity.dbo.WireTransfers 

(Payee, WireDate, WireAmount, Comment) 

values 

('City of Houston', dateadd(day,@WireOffset,getdate()), @PMTBatchTotal, 'Generated 
1 + convert(varchar,getdate0,101)) 

25 

~ print contents of temp table to disk file 
declare @BCPCommand varchar(200) 

select @BCPCommand = 'bcp "SELECT OutputLine FROM ##CHW_PMT order by id" 
queryout '"+ @FileName + "' /T /c' 
30 EXEC master..xp_cmdshell @BCPCommand 

select @BCPCommand = 'move ' + @FileName + ' 

\\ASKVTS01\Transmissions\outgoing\CHW\' 

EXEC master.. xp_cmdshell @BCPCommand 



delete from ##CHW_PMT 

insert into ##CHW_PMT (OutputLine) 
40 values 

('<html><head><title>File Transmission Report</title></head><body 

bgcolor= ,, #FFFFFF"><divalign="center"> , ) 

insert into ##CHW_PMT (OutputLine) 
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values 

('<font size=*'2">Please fax this page to (713) 371-1037</font>') 

insert into ##CHW_PMT (OutputLine) 

values 

5 ( , <H2>askHarris.com<br>PAYMENT FILE TRANSMISSION REPORT</br>for City of 
Houston Water</h2>') 
insert into ##CHW_PMT (OutputLine) 
values 

('<b>generated 1 + convert(varchar, getdateQ) + , </bXhr>') 
10 insert into ##CHW_PMT (OutputLine) 
values 

('<font size="+l"><p>' + cast((@PMTItemCount + @NSFItemCount) as varchar(5)) + ' 
records</p>') 

insert into ##CHW_PMT (OutputLine) 
15 values 

('<p>' + cast(cast((@PMTBatchTotal + @NSFBatchTotal) as money) as varchar(20)) + 1 total 

amount</p></font>*) 

insert into ##CHW_PMT (OutputLine) 

values 

20 ('<p> </p><p>If there are any problems with this transmission, please call (713) 
935-3605.<yp>*) 

insert into ##CHW_PMT (OutputLine) 
values 

('</div></body></html>*) 

25 

select @FileName = replace(@FileName, '.rpt', \alert.htm 1 ) 

select @BCPCommand = *bcp "SELECT OutputLine FROM ##CHW_PMT order by id" 

queryout "'+ @FileName + '" IT lc' 

EXEC master.. xp_cmdshell @BCPCommand 

30 

select @BCPCommand = 'move ' + @FileName + ' 

\\ASKVTS01\Transmissions\outgoing\CHW\" 

EXEC master.. xp_cmdshell @BCPCommand 

35 insert into 

MainSecurity.dbo.JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

values 

(getdateO, 0, 'CHW PMT/NSF file', Tile generated successfully.') 

40 

drop table ##CHW_PMT 
end - create proc 
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CHWPMT detail report 
- to be faxed to cashiers 



5 RL 01/17/2001 : file created, just query 

» RL 01/18/2001 : use cursors, generate totals, write to output file 
~ RL 01/18/2001 : change query for payments, add totals 
RL 01/25/2001 : send output to text file on ASKVTS01 
~ RL 01/27/2001 : use QBTed value to choose records to process 
10 RL 01/29/2001 : convert to stored procedure 

~ RL 02/03/2001 : correct for mixed payments (one payment, one service charge) 

— RL 02/09/2001 : prevent reporting of zero payments 

— RL 02/10/2001 : prevent reporting of amounts <=0 ($1 payment - $1 svc chg) 
~ RL 03/29/2001 : add datetime values to join conditions 



15 



use MainKiosk 
go 



drop proc pr_CHW_PMT_report 
20 go 

create proc pr_CHW_PMT__report 
as begin 



25 overhead for file creation 
create table ##CHW_FAX 
(id int identity, OutputLine varchar(200)) 
delete from ##CHW_F AX 
declare @FileName varchar(lOO) 

30 

select @FileName = 'c:\askHarris_CHW_PMThuman_' + replace(convert(varchar, getdateO, 
106), ' ' ,") + + rightCO 1 + cast(datepart(hh,getdate()) as varchar(2)),2) + right('0' + 
cast(datepart(mi,getdateQ) as varchar(2)),2) + ? .txt f 



35 

declare @OutputLine varchar(200) 

declare @QueryCount int 
declare @Query Total money 
40 declare @SummaryCount int 

declare @SummaryTotal money 

select @SummaryCount = 0 
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select @Summary Total = 0 

declare Something cursor for 
select 
5 ' ' + 

right('00' + cast(datepart(mm, max(prt.DateTimeofPayment)) as varchar(2)),2) + V + 
right( ! 00 r -(- cast(datepart(dd, max(prt.DateTimeofPayment)) as varchar(2)),2) 
+ ' ■ + 

right('00' + cast(datepart(hh, max(prt.DateTimeofPayment)) as varchar(2)) ? 2) + V + 
10 right('00' + cast(datepart(mi, max(prt.DateTimeofPayment)) as varchar(2)),2) 
+ ' ' + 

max(bdt.BillAccountNumber) 
+ ■ ' + 

convert(char(15), (sum(prt.PaymentAmount) - max(bdt. Service Amt) - 
15 IsNull(max(bdt.Donation), 0)), 0) 

case count(*) 

when 1 then cast(max(pt.PaymentTypeName) as char(8)) 
else 'Mixed ' 
20 end 

+ ' ' + 

max(rdt.ReceiptNumber) 

from 

BillDetailTransaction bdt 
25 JOIN BillPay bp ON bdtBillDetailld = bp.BillDetailld and bdt.KioskPCID = 

bp.KioskPCID and bdtDateTimeofBillScan = bp.DateStamp 

JOIN PaymentRecordTransactionprt ON bp.PaymentRecordld = prtPaymentRecordld 
and bp.KioskPCID = prtKioskPCID and bp.DateStamp = prt.DateTimeofPayment 

JOIN PaymentType pt on pt.PaymentTypeID = prt.PaymentTypeid 
30 JOIN ReceiptBill rb on rb.BillPaylD = bp.BillPaylD and rb.KioskPCID = 

bp.KioskPCID and rb.DateStamp = bp.DateStamp 

JOIN ReceiptDetailTransaction rdt on rdtReceiptDetaillD = rb.ReceiptDetaillD and 
rb.KioskPCID = rdt.KioskPCID and rb.DateStamp = rdtDateTimeofReceiptlssue 
where 

35 bdtCompanyAccountTypelD = 4 and 

bdt.QBTed= 10 and 
prt.PaymentAmount > 0 
group by bdtbilldetailid, bdtkioskpcid 

having (sum(prt. Payment Amount) - max(bdtServiceAmt)) > 0 
40 order by 

max(prt.DateTimeofPayment) 

insert into ##CHW_FAX (OutputLine) 
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values (") 

insert into ##CHW_FAX (OutputLine) 
values ('askHarris.com') 
insert into ##CHW_F AX (OutputLine) 
5 values ('PAYMENT FILE REPORT') 
insert into ##CHW_FAX (OutputLine) 
values ('for City of Houston') 
insert into ##CHW_FAX (OutputLine) 
values ('Generated ' + convert(varchar, getdate())) 
10 insert into ##CHW_FAX (OutputLine) 
values (") 

insert into ##CHW_FAX (OutputLine) 

values ( ? Date Time Account Amount Type Receipt #') 
insert into ##CHW_FAX (OutputLine) 
15 values (' ') 



20 



30 



open Something 

fetch from Something into @OutputLine 



while @@fetch_status = 0 
begin 

insert into ##CHW_FAX (OutputLine) 
values (@OutputLine) 
25 fetch next from Something into @OutputLine 

end 



close Something 
deallocate Something 



insert into ##CHW_F AX (OutputLine) 
values (") 

insert into ##CHW_FAX (OutputLine) 
values 

35 ( , ====== m = m „ m===mm===mm ^ ) 

insert into ##CHW_FAX (OutputLine) 
values (") 



40 declare Something cursor for 
select 

cast((PaymentType + ' Transactions 1 ) as char(20)) 
+ ' f + 
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cast(isnull(count(*),0) as char(10)) 
+ ■ ' + 

convert(char(l 5), isnullCsumCPaymentAmount)^)^), 
isnull(count(*) ? 0), sum(PaymentAmount) 

from 
(select 

case count(*) 

when 1 then max(pt.PaymentTypeName) 

else 'Mixed' 

end as PaymentType, 

(sum(prt.PaymentAmount) - max(bdt.ServiceAmt) - IsNull(m&x(bdt.Donation), 0)) as 
PaymentAmount 
from 

BillDetailTransaction bdt 

JOIN BillPay bp ON bdt.BillDetailld = bp.BillDetailld and bdtKioskPCID = 
bp.KioskPCID and bdtDateTimeoffiillScan = bp.DateStamp 

JOIN PaymentRecordTransactionprt ON bp.PaymentRecordld =prt.PaymentRecordId 
and bp.KioskPCID = prt.KioskPCID and bp.DateStamp = prt.DateTimeofPayment 

JOIN PaymentType pt on ptPaymentTypelD = prt.PaymentTypeid 

JOIN ReceiptBill rb on rb.BillPaylD - bp.BillPaylD and rb.KioskPCID - 
bp.KioskPCID and rb.DateStamp = bp.DateStamp 

JOIN ReceiptDetailTransaction rdt on rdtReceiptDetaillD = rb.ReceiptDetaillD and 
rb.KioskPCID = rdtKioskPCID and rb.DateStamp = rdtDateTimeofReceiptlssue 
where 

bdtCompanyAccountTypelD = 4 and 

bdtQBTed= 10 and 

prt.PaymentAmount > 0 
group by bdtbilldetailid, bdt.kioskpcid) as foo 
group by PaymentType 

open Something 

fetch from Something into @OutputLine, @QueryCount ? @QueryTotal 

while @@fetch_status = 0 
begin 

select @SummaryCount = @SummaryCount + @QueryCount 
select @SummaryTotal = @SummaryTotal + @QueryTotal 

insert into ##CHW_FAX (OutputLine) 
values (@OutputLine) 

fetch next from Something into @OutputLine, @QueryCount ? @QueryTotal 

end 



close Something 
deallocate Something 

insert into ##CHW_FAX (OutputLine) 
5 values (Total Transactions 1 + cast(@SummaryCount as char(10)) + ' ' + convert(char(15), 
@SummaryTotal)) 



- print contents of temp table to disk file 
10 declare @BCPCommand varchar(200) 

select @BCPCommand = 'bcp "SELECT OutputLine FROM ##CHW_FAX order by id" 

queryout @FileName + IT /c' 

EXEC master. .xp_cmdshell @BCPCommand 

15 select @BCPCommand = 'move ' + @FileName + 
\\ASKVTS01\Transmissions\outgoing\CHW\' 
EXEC master. .xp_cmdshell @BCPCommand 



20 insert into 

MainSecurity.dbo.JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

values 

(getdate(), 0, 'CHW PMT fax 1 , Tile generated successfully. 1 ) 

25 

drop table ##CHW_FAX 
end -- create proc 

30 
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City of Houston Water MEMO file 



******** ********************************************************************* 

-- AG & RL 1 1/25/2000 : insert detail records to CHW_PMT table 
5 - RL 1 1/29/2000 : no insertion, wrap in header/footer 

- RL 12/12/2000 : use cursors/print, generate sequence number, account for service charge and 
water fund donation 

- RL 01/16/2001 : database changes (donation field) 

- RL 01/16/2001 : QBTed value of 1 for first day of PMT testing, 2 for second, 3 for third. 
10 --RL 01/16/2001 : file generates follow-on NSF batch, based on the handmade one from earlier 

test 

- RL 01/25/2001 : send output to test file on ASKVTS01, create file to be faxed to CHW 
operations 

- RL 01/25/2001 : this file made from PMT file 

15 - RL 01/27/2001 : use QBTed value to choose records to process 
RL 01/29/2001 : convert to stored procedure 
~ RL 02/03/2001 : correct for mixed payments (one payment, one service charge) 

- RL 02/09/2001 : prevent reporting of zero payments 

-- RL 02/10/2001 : prevent reporting of amounts <=0 ($1 payment - $1 svc chg) 
20 - RL 03/29/2001 : add datetime values to join conditions 

use MainKiosk 
go 

25 drop proc pr_CHW_memo 
go 

create proc pr_CHW_memo 
as begin 

30 

- overhead for file creation 
create table ##CHW_PMT 

(id int identity, OutputLine varchar(200)) 
delete from ##CHW_PMT 
35 declare @FileName varchar(100) 

select @FileName = f c:\askHarris_CHW_MEMO J + replace(convert(varchar, getdate(), 1 06), 
1 ' ,") + '-' + right('0' + cast(datepart(hh,getdateO) as varchar(2)),2) + right( ! 0' + 
cast(datepart(mi,getdateO) as varchar(2)),2) + ? .rpt* 

40 

declare @OutputPartl varchar(200) 
declare @OutputPart2 varchar(200) 
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declare @SequenceNumber int 

declare @PMTBatchTotal float 
declare @PMTItemCount int 
5 declare @FileTotal float 
declare @FileItemCount int 
declare @PaymentAmount float 

select 

10 @PMTBatchTotal = 0, 

@PMTItemCount = 0 



— Record Type 1 
15 -- File Header 

insert into ##CHW_PMT (OutputLine) 
values 

( T 

+ -- as RecordType, 

20 rightCO' + cast(datepart(mm,getdate()) as varchar(2)),2)+ 

right('0' + cast(datepart(dd ? getdateO) as varchar(2)),2)+ 
right(cast(datepart(yy ? getdateO) as varchar(4)),2) 
+ - as FileDate, 
'HARRIS 1 

25 - as FileDescriptor 

) 

— begin PMT batch 

30 Record Type 2 

— Batch Header 

insert into ##CHW_PMT (OutputLine) 

values 

( '2 ! 
35 + ~ as RecordType, 

right( ! 0' + cast(datepart(mm,getdate()) as varchar(2)),2)+ 
right(*0 r + cast(datepart(dd ? getdateO) as varchar(2)) 5 2)+ 
right(cast(datepart(yy ? getdateO) as varchar(4)) ? 2) 
+ » as FileDate, 
40 '0' 

+ ~ as BatchPrefix ? 
77001' 

77001 - 77799 : regular payment batches 
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- 77800 : credit adjustment batch 
~ 77946 : debit adjustment batch 
« 77945 :NSF batch 

+ - as BatchNumber, 
5 TMT ! 

AD JCDT : credit batch 

- ADJDBT : debit batch 
NSFADJ : NSF batch 

as FileDescriptor 

10 ) 



- Record Type 5 
Detail 

declare DetailCursor cursor for 
15 SELECT 
'5' 

+ - as RecordType, 

right('0' + cast(datepart(mm,getdate()) as varchar(2)),2)+ 
right('0 f + cast(datepart(dd ? getdateO) as varchar(2)),2)+ 
20 right(cast(datepart(yy,getdateO) as varchar(4)),2) 

+ - as FileDate, 
! 0' 

+ — as BatchPrefix, 
77001' 

25 77001 - 77799 : regular payment batches 

-- 77800 : credit adjustment batch 

- 77946 : debit adjustment batch 

- 77945 : NSF batch 

as BatchNumber, 
30 as Parti, 

right('0000000000 ! + cast(cast(round(((sum(prt.PaymentAmount) 
max(bdt.ServiceAmt) - IsNull(max(bdtDonation), 0)) * 100),0) as int) as varchar(10)),10) 
+ — as PaymentAmount, 

35 +-- as Filled, 

right( f 0000000' + cast(cast(round((IsNull(max(bdt.Donation) ? 0) * 100),0) as int) as 

varchar(7)),7) 

- ********** W ater fund donation amount 

+ — ( as Filler2, 
40 left(max(bdt.BillAccountNvimber) ? 1 1) 

+ — as AccountNumber, 
right(max(bdt.BillAccountNumber) ? 1) 
+ - as CheckDigit, 



#273511 



139 



right('0' + cast(datepart(mm ? max(prt.DateTimeofPayment)) as varchar(2)),2)+ 
right('0' + cast(datepart(dd ? max(prt.DateTimeofPayment)) as varchar(2)),2) 
+ — as PayDate, 

f r 

5 1 : credit 

- 2 : debit 

+ - as PayMethod, 
CASE count(*) 
WHEN 1 THEN 
10 CASE max(prt.PaymentTypeID) 

WHEN 1 THEN '0' - cash 
WHEN 2 THEN T check/money order 
END 

ELSE '2' - combination payment 
15 END 

+ as PayType, 

right('0' + cast(datepart(hh 5 max(prt.DateTimeofPayment)) as varchar(2)),2)+ 
right( ! 0' + cast(datepart(mi ? max(prt.DateTimeofPayment)) as varchar(2)),2)+ 
right( r 0 f + cast(datepart(ss 5 max(prt.DateTimeofPayment)) as varchar(2)) ? 2) 
20 - as PayTime 

as Part2, 

(sum(prt.PaymentAmount) - max(bdt. Service Amt) - IsNull(max(bdt.Donation) ? 0)) as 
PaymentAmount 
FROM 

25 BillDetailTransaction bdt 

JOIN BillPay bp ON bdtBillDetailld - bp.BillDetailld and bdt.KioskPCID = 
bp.KioskPCID and bdt.DateTimeofBillScan = bp.DateStamp 

JOIN PaymentRecordTransactionprt ON bp.PaymentRecordld = prt.PaymentRecordId 
and bp.KioskPCID = prt.KioskPCID and bp.DateStamp = prt.DateTimeofPayment 

30 WHERE 

bdt.CompanyAccountTypeId = ! 4' and 
bdt.QBTed= 10 and 
prt.PaymentAmo\uit > 0 
group by bdtbilldetailid, bdtkioskpcid 
35 having (sum(prt.PaymentAmount) - max(bdt.ServiceAmt)) > 0 
order by 

max(prt.DateTimeofPayment) 

open DetailCursor 
40 fetch from DetailCursor 

into @OutputPartl, @OutputPart2 ? @PaymentAmount 

select @SequenceNumber = 0 
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while @@fetch_status = 0 
begin 

select @SequenceNumber = @SequenceNumber + 1 
select @PMTItemCount = @PMTItemCount + 1 
5 select @PMTBatchTotal = @PMTBatchTotal + @PaymentAmount 

insert into ##CHW_PMT (OutputLine) 
values 

(@OutputPartl + rightCOOOO' + cast(@SequenceNumber as varchar(4)),4) + 
@OutputPart2) 

10 

fetch next from DetailCursor 

into @OutputPartl, @OutputPart2, @PaymentAmount 

end 

15 

close DetailCursor 
deallocate DetailCursor 

-- Record type 8 
20 - Batch Trailer 

insert into ##CHW_PMT (OutputLine) 
values 
( '8* 
25 + — as RecordType, 

right('0' + cast(datepart(mm 5 getdate0) as varchar(2)),2)+ 

right('0' + cast(datepart(dd,getdate()) as varchar(2)),2)+ 

right(cast(datepart(yy,getdateO) as varchar(4)) ? 2) 

+ — as FileDate, 
30 '0 f 

+ -- as BatchPrefix, 

77001' 

-- 77001 - 77799 : regular payment batches 
77800 : credit adjustment batch 
35 - 77946 : debit adjustment batch 

77945 :NSF batch 
+ ~ as BatchNumber, 
T 

+ — as PaymentMethod, 

40 ' f 

+ - as Filler 1 ? 

rightCOOOOOOOOOO 1 + cast(cast(round((@PMTBatchTotal * 100),0) as int) as 
varchar(10)) ? 10) 
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+ ~ as BatchTotal, 



+ - as Filler2, 

right( r 00000 ! + cast(@PMTItemCount as varchar(5)),5) 
5 + - as ItemCount, 

'001' 

as BatchNumber 



10 

~ Record Type 9 
-- File Trailer 

insert into ##CHW__PMT (OutputLine) 
values 
15 ( '9' 

+ — as RecordType, 

+ -- as Filler 1, 

T 

20 + - as PayMethod, 

+ — as Filler2> 

right('0000000000 f + cast(cast(round((@PMTBatchTotal * 100),0) as int) as 
varchar(10)) ? 10) 
25 + - as BatchTotal, 

+ — as Filler3, 

right('00000* + cast(@PMTItemCount as varchar(5)),5) 
+ ~ as ItemCount, 
30 '002' 

as BatchCount 



-- print contents of temp table to disk file 
35 declare @BCPCommand varchar(200) 

select @BCPCommand = *bcp "SELECT OutputLine FROM ##CHW_PMT order by id" 

queryout "'+ @FileName + /T Id 

EXEC master..xp_cmdshell @BCPCommand 

40 select @BCPCommand = 'move ' + @FileName + ' 
\\ASKVTS01\Transmissions\outgoing\CHW\' 
EXEC master..xp_cmdshell @BCPCommand 
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delete from ##CHW_PMT 



insert into ##CHW_PMT (OutputLine) 
values 

5 ('<html><head><title>File Transmission Report</title></head><body 
bgcolor="#FFFFFF M xdivalign="center ,, >*) 
insert into ##CHW_PMT (OutputLine) 
values 

('<font size="2">Please fax this page to (713) 371-1037</font>') 
10 insert into ##CHW_PMT (OutputLine) 
values 

('<H2>askHarris.com<br>MEMO FILE TRANSMISSION REPORT</br>for City of Houston 
Water</h2>') 

insert into ##CHW_PMT (OutputLine) 
15 values 

('<b>generated ' + convert(varchar, getdateO) + '</b><hr>') 

insert into ##CHW_PMT (OutputLine) 

values 

('<font size="+l"xp>' + cast(@PMTItemCount as varchar(5)) + ' records</p>') 
20 insert into ##CHW_PMT (OutputLine) 
values 

('<p>' + cast(cast(@PMTBatchTotal as money) as varchar(20)) + ' total amount</px/font>') 

insert into ##CHW_PMT (OutputLine) 

values 

25 ('<p> </p><p>If there are any problems with this transmission, please call (713) 
935-3605.</p>') 

insert into ##CHW_PMT (OutputLine) 
values 

('<div></bodyx/htrnl>*) 

30 

select @FileName = replace(@FileName, '.rpf, '.alert.htm') 

select @BCPCommand = 'bcp "SELECT OutputLine FROM ##CHW_PMT order by id" 

queryout '"+ @FileName + /T /c' 

EXEC master. .xp_cmdshell @BCPCommand 

35 

select @BCPCommand = 'move ' + @FileName + • 

\\ASKVTS01\Transmissions\outgoing\CHW\' 

EXEC master..xp_cmdshell @BCPCommand 

40 insert into 

MainSecurity.dbo.JobRC 

(DateTime, ReturnCode, JobTxt, TxtComment) 

values 
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(getdateO, 0, 'CHW MEMO file', 'File generated successfully.') 
drop table ##CHW_PMT 
5 end ~ create proc 
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- Chase ACH file generation 



*********************************************** 

~ RL 12/01/2000 : created from file using unions 
RL 12/19/2000 : start on multi-batch file 

separate batches for SWB and other checks 
RL 12/20/2000 : more multi-batching 

cash batches for SWB and other, service charge payouts, cash voucher payouts 

- RL 01/26/2001 : match customer with kioskpcid, addisnullO incase of zero-length recordsets 

- RL 01/27/2001 : do not produce headers or trailers for empty batches 

- RL 01/27/2001 : use QBTed value to choose records to process 
~ RL 01/29/2001 : convert to stored procedure 

- RL 02/05/2001 : add SWB CTX batch at bottom of file 
» RL 02/09/2001 : allow for zero service charge 

- RL 02/09/2001 : set minimum date for customer identification records 

~ RL 02/10/2001 : group SWB payments to prevent double-subtraction of service charge 
~ RL 02/10/2001 : prevent reporting of amounts <=0 to SWB 

- RL 02/12/2001 : add code to generate proper one-day and two-day dates (weekdays only) 

- RL 02/15/2001 : correct for CustomerldentificationTransaction before 02/06 19:30 

- RL 02/20/2001 : change 5-record company name from 'askHarris.com 1 to 'askHarr Bill Pay' 
on check batches 

- RL 02/25/2001 : clean up queries using JOIN, add ORDER BY on checks 

~ RL 02/25/2001 : record batch totals and askHarris service charge amount to WireTransfers 
table 

- RL 03/01/2001 : change float types to money types (for proper string-format display) 

- RL 03/12/2001 : change int to bigint, to allow for large batch trailer amounts 

- RL 03/26/2001 : change 'cast as varchar(n)' to f cast as varchar' to avoid arithmetic overflow 
RL 03/27/2001 : process all checks as one-day ACH 

» RL 03/29/2001 : add datetime fieleds to join conditions 

- RL 03/29/2001 : change WireTransfer dates on ACH items to match posting date 
********************** ***************************** ******************* 

use MainKiosk 
go 

drop proc pr_Chase_ACH 
go 

create proc pr_Chase_ACH 
as begin 

create table ##SWB_EDI (id int identity, OutputLine char(80)) 
delete from ##SWB_EDI 



create table ##Chase__ACH (id int identity, OutputLine varchar(200)) 
delete from ##Chase_ACH 

declare @FileName varchar(lOO) 
5 select @FileName = , c:\askHarris_Chase_ACH_ , + replace(convert(varchar, getdate(), 106), 1 
' ? M ) + r -' + right('0' + cast(datepart(hh,getdateO) as varchar),2) + right('0' + 
cast(datepart(mi ? getdateO) as varchar),2) + \rpt' 

declare @OutputLine varchar(200) 

10 

~ EDI transmission control number 

- must be unique over transactions 

- (basically, a new number each day) 
declare @EDIControlNbr char(9) 

15 

select @EDIControlNbr = 

right('000000000 ! + Notes,9) 
from CompanyAccountTypeMaster 
where Company AccountTypelD = 3 

20 

declare @TraceNumber int 
declare @OutputPartl varchar(200) 
declare @OutputPart2 varchar(200) 

25 declare @EntryDetail cursor 

declare @DetailEntryHash bigint 
declare @DetailDebitAmount money 
declare @DetailCreditAmount money 

30 

declare @BatchCount int 
declare @BatchEntryCount int 
declare @BatchEntryHash bigint 
declare @BatchDebitAmount money 
35 declare @BatchCreditAmount money 

declare @FileEntryCount int 
declare @FileEntryHash bigint 
declare @FileDebitAmount money 
40 declare @FileCreditAmount money 

declare @DetailAHSvcChg money 
declare @TotalAHSvcChg money 
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select @BatchCount = 0 
select @FileEntryCount = 0 
select @FileEntryHash = 0 
select @FileDebitAmount = 0 
5 select @FileCreditAmount = 0 
select @TraceNumber = 0 

~ Our company ID assigned by Chase 

- company id is 1760626924, and that number goes in the 1 record 
10 ~ for other batches, the first digit is incremented (276, 376, etc.) 

- we needed a new id for different combinations of CCD/PPD and l-day/2-day 
declare @ChaseCompanyID char(9) 

select @ChaseCompanyID = 760626924' 

15 ~ askHarris service charge bank account information 
declare @askHarrisSvcChgABA char(9) 
declare @askHarrisSvcChgAccountchar(17) 
select @askHarrisSvcChgABA = '1 13000609* 
select @askHarrisSvcChgAccount = '30802536126 ' 

20 

-- figure real offsets for one-day and two-day ACH batches 
~ (allow for weekends not being banking days) 
declare @OneDayOffset int 
declare @TwoDayOffset int 
25 select @OneDayOffset = 1 
select @TwoDayOffset = 2 
declare @WeekDay varchar(10) 

select @WeekDay = datename(dw,getdate()) 

30 

- adjust for banking days 
if @WeekDay = 'Thursday' 

select @TwoDayOffset = 4 
if @WeekDay = 'Friday' 
35 select @TwoDayOffset = 4, @OneDayOffset = 3 

~ on Mondays, do everything on one-day to catch up with Reliant 
if @WeekDay = 'Monday' 

select @TwoDayOffset = 1 

40 

~ Effective date for one-day ACH batches 
declare @OneDayDate char(6) 

select @OneDayDate = cast(right( datepart(yy,dateadd(day, @OneDayOffset, getdateQ)) ,2) 
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as char(2)) + 

right('0' + cast(datepart(mm,dateadd(day, @OneDayOffset, getdateO)) as varchar),2) + 
right('0' + cast(datepart(dd,dateadd(day, @OneDayOffset, getdateO)) as varchar),2) 

5 - Effective date for two-day ACH batches 
declare @TwoDayDate char(6) 

select @TwoDayDate = cast(right( datepart(yy,dateadd(day, @TwoDayOffset, getdateO)) ,2) 
as char(2)) + 

right(*0' + cast(datepart(mm,dateadd(day, @TwoDayOffset, getdateO)) as varchar),2) 

10 + 

right('0' + cast(datepart(dd,dateadd(day, @TwoDayOffset, getdateO)) as varchar),2) 

— File transmission date and time 
declare @FileXmitDate char(6) 
15 declare @FileXmitTime char(4) 

select @FileXmitDate = cast(right(datepart(yy,getdate0),2) as char(2)) + 
rightCO' + cast(datepart(mm,getdateO) as varchar),2) + 
right('0' + cast(datepart(dd,getdateO) as varchar),2) 
select @FileXmitTime = rightCO* + castCdatepartChh^etdateO) as varchar),2)+ 
20 right('0' + cast(datepart(mi,getdateO) as varchar),2) 



~ record type 1 
-- File Header 
25 insert into ##Chase_ACH (OutputLine) 
values 
( T 

+ ~ as RecordType, 

'01' 

30 + - as PriorityCode, 

' 021000021' 

+ — as IrnmediateDestination, 
■1' + @ChaseCompanyID 

+ — as ImmediateOrigin, 
35 @FileXmitDate 

+ -- as TransmissionDate, 
@FileXmitTime 

+ ~ as TransmissionTime, 

•A' 

40 + - as FilelDModifier, 

'094' 

+ - as RecordSize, 

'10' 
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+ - as BlockingFactor, 

T 

+ as FormatCode, 
'CHASE MANHATTAN BANK ' 
5 + - as ImmediateDestinationName, 

! askHarris.com ' 

+ - as ImmediateOriginName, 

— as ReferenceCode 

10 ) 



First Batch: S WB checks 

15 - set up cursor for detail records 

-- PaymentType = 2 for checks 

-- CompanyAccountTypelD = 3 for SWB 

set @EntryDetail = cursor for 

select 
20 *6 ! 

+ - as RecordType, 

'27 

+ — as TransactionCode, 
CheckRoutingNumber 
25 + - as ReceivingABA, 

cast(CheckingAccountNumber as char(17)) 

+ - as DFIAccountNumber, 
rightCOOOOOOOOOO' + cast(cast(round((PaymentAmount * 1 00),0) as int) as varchar), 1 0) 

- as Dollar Amount, 
30 as Parti, 

cast(replace(Name, '$\ ' ') as char(22)) 

+ — as DestinationName 

T 

+ — as MediaDetermination, 

35 

+ - as DiscretionaryDate, 

'0' 

+ -- as AddendaRecordlndicator, 
substring(@ChaseCompanyID, 1, 8) 
40 ~ as OriginatingDFIID, 

as Part2 

from 

PaymentRecordTransaction prt 
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join BillPay bp on bp.PaymentRecordID = prt.PaymentRecordid and bp.KioskPCID - 
prtKioskPCID and bp.DateStamp = prt.DateTimeofPayment 

joinBillDetailTransactionbdtonbdtBiimeMro=bp.BillDetailIDandbp.KioskPCID 

= bdt.KioskPCID and bp.DateStamp = bdt.DateTimeofBillScan 
5 join CustomerldentificationTransaction cit on prt.CustomerIdentificationID = 

cit.CustomerIdentificationID and citCheckingAccounfNumber 1 = prt.CheckingAccountNumber 
where 

prtPaymentTypelD = 2 and 
prt.QBTed = 10 and 
10 bdt.CompanyAccountTypelD = 3 

order by prt.DateTimeofPayment 

~ open cursor and fetch for detail record 
open @EntryDetail 



fetch next from @EntryDetail 
into @OutputPartl, @OutputPart2 

-- only write batch if there is a detail record set 
20 if @@fetch_status = 0 
begin 

select @BatchCount = @BatchCount + 1 



15 



25 



— record type 5 

- Batch Header 

insert into ##Chase_ACH (OutputLine) 
values 



( 



30 



+ - as RecordType, 

'200* 



+ — as ServiceClassCode, 
'askHarr Bill Pay' 



+ - as CompanyName, 



35 



+ -- as CompanyDiscretionaryData, 
'2' + @ChaseCompanyID 



+ « as CompanylD, 

•PPD' 



40 



+ - as StandardEntryClassCode, 
'SWB CHECKS* 



+ ~ as CompanyEntryDescription, 
@FileXmitDate 



+ ~ as CompanyDescriptiveDate, 
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@OneDayDate 

+ - as EffectiveEntryDate, 

r t 

+ as Settlement, 

5 T 

+ - as OriginatorStatusCode, 
substring(@ChaseCompanyID> 1, 8) 

+ - as OriginatingDFIID, 
right('0000000 ! + cast(@BatchCount as varchar),7) 
10 — as BatchNumber 

) 

— record type 6 

— Entry Detail 

15 » records fetched from cursor above 

while @@fetch_status = 0 
begin 

select @TraceNumber = @TraceNumber + 1 
insert into ##Chase_ACH (OutputLine) 
20 values (@OutputPartl + right('000000000000000* + cast(@TraceNumber as 

varchar),15) + @OutputPart2 + rightCOOOOOOO' + cast(@TraceNumber as varchar),7)) 
fetch next from @EntryDetail 
into @OutputPartl, @OutputPart2 

end 

25 

— record type 8 
~ Batch Control 

-- Figure totals for Batch Control Record (type 8) 
select 

30 @BatchEntryCount = isnull(count(*),0), 

@BatchDebitAmount = isnull(sum(PaymentAmount),0), 
@BatchEntryHash = isnull(sum(cast(left(CheckRoutingNumber,8) as bigint)),0) 

from 

PaymentRecordTransaction prt 
35 join BillPay bp on bp.PaymentRecordID = prt.PaymentRecordid and 

bp.KioskPCID = prt.KioskPCID and bp.DateStamp = prt.DateTimeofPayment 

join BillDetailTransaction bdt on bdtBillDetaillD = bp.BillDetaillD and 
bp.KioskPCID = bdtKioskPCID and bp.DateStamp = bdtDateTimeofBillScan 

join CustomerldentificationTransaction cit on prtCustomerldentificationID = 
40 citCustomerldentificationlD and cit.CheckingAccountNumberl = prt.CheckingAccountNumber 
where 

prt.PaymentTypeID = 2 and 
prtQBTed = 10 and 
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bdt.CompanyAccountTypelD = 3 



insert into ##Chase_ACH (OutputLine) 
5 values 

( '8' 

+ - as RecordType, 

'200' 

+ - as ServiceClassCode, 
10 right('000000 ! + cast(@BatchEntryCount as varchar) 5 6) 

+ - as EntryCount, 
rightCOOOOOOOOOO' + cast(@BatchEntryHash as varchar),10) 
+ - as EntryHash, 

right('000000000000' + cast(cast(round((@BatchDebitAmount * 100),0) as 
15 bigint) as varchar),12) 

+ as TotalDebitAmount, 
'000000000000' 

+ as TotalCreditAmount, 
? 2 ! + @ChaseCompanyID 
20 + - as CompanylD, 

+ - as Reserved 1, 

+ - as Reserved2, 
25 substring(@ChaseCompanyID, 1, 8) 

+ — as OriginatingDFI, 
right('0000000' + cast(@BatchCount as varchar),7) 
— as BatchNumber 



30 



) 



- write batch total number to wire transfer table 
insert into 

MainSecurity.dbo.WireTransfers 

(Payee, WireDate, WireAmount, Comment) 

35 values 

('ACH: SWB Checks 1 , dateadd(day,@OneDayOffset,getdate()), 
@BatchDebitAmount, 'Generated ' + convert(varchar ? getdate0 ? 101)) 

select @FileEntryCount = @FileEntryCount + @BatchEntryCount 
40 select @FileEntryHash = @FileEntryHash + @BatchEntryHash 

select @FileDebitAmount = @FileDebitAmount + @BatchDebitAmount 

end 
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close @EntryDetail 



- Second Batch: non-SWB checks 
5 Figure totals for Batch Control Record (type 8) 
-- PaymentType = 2 for checks 
set @EntryDetail = cursor for 
select 

'6' 

10 + - as RecordType, 

*27 

+ — as TransactionCode, 
CheckRoutingNumber 

+ as ReceivingABA, 
15 cast(CheckingAccountNumber as char(17)) 

+ - as DFIAccountNumber, 
rightCOOOOOOOOOO' + cast(cast(round((PaymentAmount * 1 00),0) as int) as varchar), 1 0) 
as Dollar Amount, 
as Parti, 

20 cast(replace(Name, T, ' ') as char(22)) 

+ - as DestinationName 

T 

+ ~ as MediaDetermination, 

25 + — as DiscretionaryDate, 

'0' 

+ - as AddendaRecordlndicator, 
substring(@ChaseCompanyID, 1, 8) 
- as OriginatingDFIID, 
30 as Part2 

from 

PaymentRecordTransaction pit 

join BillPay bp on bp.PaymentRecordID = prtPaymentRecordid and bp.KioskPCID = 
prt.KioskPCID and bp.DateStamp = prt.DateTimeofPayment 
35 joinBillDetailTransa 

= bdt.KioskPCID and bp.DateStamp = bdt.DateTimeofflillScan 

join CustomerldentificationTransaction cit on prt.CustomerIdentificationID = 
cit.CustomerIdentificationID and cit.CheckingAccountNumberl =prL Checking AccountNumber 
where 

40 prt.PaymentTypelD = 2 and 

prt.QBTed=10and 
bdtCompanyAccountTypelD o 3 
order by prt.DateTimeofPayment 
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10 



open @EntryDetail 

fetch next from @EntryDetail 
into @OutputPartl, @OutputPart2 

if @@fetch_status = 0 
begin 

select @BatchCount = @BatchCount + 1 



select 

@BatchEntryCount = isnull(count(*),0), 
@BatchDebitAmount = isnull(snm(PaymentAmount) 5 0) ? 
@BatchEntryHash=isnulI(sum as bigint)) 5 0) 

15 from 

PaymentRecordTransaction prt 

join BillPay bp on bp.PaymentRecordID = prtPaymentRecordid and 
bp.KioskPCID = pitKioskPCID and bp.DateStamp = prt.DateTimeofPayment 

join BillDetailTransaction bdt on bdt.BillDetaillD - bp.BillDetaillD and 
20 bp.KioskPCID = bdt.KioskPCID and bp.DateStamp = bdt.DateTimeofBillScan 

join CustomerldentificationTransaction cit on prt.CustomerldentificationID = 
citCustomerldentificationlD and cit CheckingAccountNumberl =prt.CheckingAccountNumber 
where 

prt.PaymentTypelD = 2 and 
25 prt.QBTed=10and 

bdt.CompanyAccountTypeID o 3 

— record type 5 

— Batch Header 

30 insert into ##Chase_ACH (OutputLine) 

values 
( '5' 

+ — as RecordType, 

*200 f 

35 + - as ServiceClassCode, 

'askHarr Bill Pay* 

+ — as CompanyName, 

+ — as CompanyDiscretionaryData, 
40 '3 1 + @ChaseCompanyID 

+ — as CompanylD, 

TPD 1 

+ — as StandardEntryClassCode, 
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10 



15 



20 



I=i 25 



N= 30 



35 



'UTILITY CK' 

+ » as CompanyEntryDescription, 

@FileXmitDate 

+ - as CompanyDescriptiveDate, 
@OneDayDate 

+ -- as EffectiveEntryDate, 

+ - as Settlement, 

T 

+ — as OriginatorStatusCode, 
substring(@ChaseCompanyID, 1, 8) 

+ - as OriginatingDFIID, 
right('0000000' + cast(@BatchCount as varchar),7) 

-- as BatchNumber 

) 

- record type 6 
Entry Detail 
while @@fetch_status = 0 
begin 

select @TraceNumber = @TraceNumber + 1 
insert into ##Chase_ACH (OutputLine) 

values (@OutputPartl + rightCOOOOOOOOOOOOOOO' + cast(@TraceNumber as 
varchar),15) + @OutputPart2 + right('0000000' + cast(@TraceNumber as varchar),7)) 
fetch next from @EntryDetail 
into @OutputPartl, @OutputPart2 

end 



- record type 8 
Batch Control 
insert into ##Chase_ACH (OutputLine) 
values 
( '8' 

+ as RecordType, 

'200' 

+ — as ServiceClassCode, 
rightCOOOOOO 1 + cast(@BatchEntryCount as varchar),6) 

+ as EntryCount, 
right('0000000000 f + cast(@BatchEntryHash as varchar),10) 

+ - as EntryHash, 

rightC000000000000 r + cast(cast(round((@BatchDebitAmount * 100),0) as 
bigint) as varchar) ? 12) 
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+ - as TotalDebitAmount, 
'000000000000' 

+ - as TotalCreditAmount, 
'3' + @ChaseCompanyID 
5 + - as CompanylD, 

+ as Reservedl, 

+ ~ as Reserved2, 
10 substring(@ChaseCompanyID 5 1, 8) 

+ - as OriginatingDFI, 
rightCOOOOOOO' + cast(@BatchCount as varchar),7) 
-- as BatchNumber 



15 



) 



- write batch total number to wire transfer table 

insert into 

MainSecurity.dbo.WireTransfers 

(Payee, WireDate, WireAmount, Comment) 

20 values 

('ACH: Utility Checks', dateadd(day,@OneDayOffset,getdate()), 
@BatchDebitAmount, 'Generated 1 + convert(varchar 5 getdate0 ? 101)) 

select @FileEntryCount = @FileEntryCount + @BatchEntryCount 
25 select @FileEntryHash - @FileEntryHash + @BatchEntryHash 

select @FileDebitAmount = @FileDebitAmount + @BatchDebitAmount 

end 



close @EntryDetail 

30 

Third Batch: SWB cash 
set @EntryDetail = cursor for 
select 
35 '6' 

+ as RecordType, 

'27' 

+ — as TransactionCode, 
stb.CashDepositABA 
40 + - as ReceivingAB A, 

cast(stb.CashDepositAccount as char(17)) 

+ - as DFI AccountNumber, 
right('0000000000' + cast(cast(round((sum(isnull(prt.PaymentAmount 
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prt.AmountApplied,0)) * 100),0) as bigint) as varchar),10) 
- as Dollar Amount, 
as Parti, 
'askHarris.com ' 
5 + ~ as DestinationName 

T 

+ - as MediaDetermination, 
+ - as DiscretionaryDate, 

10 '0' 

+ ~ as AddendaRecordlndicator, 
substring(@ChaseCompanyID, 1, 8) 
-- as OriginatingDFIID, 
as Part2, 

15 cast(left(stb.CashDepositABA,8) as int) as EntryHash, 

isnull(sum(prt.PaymentAmount + prt.AmountApplied),0) as DebitAmount 

from 

PaymentRecordTransaction prt 

join BillPay bp on bp.PaymentRecordID = prtPaymentRecordid and bp.KioskPCID = 

20 prtKioskPCID and bp.DateStamp = prt.DateTimeofPayment 

joinBillDetailTransactionbdtonbdt.BillDetaiUD=bp.BillDetaiUDandbp.KioskPCID 

= bdt.KioskPCID and bp.DateStamp = bdt.DateTimeofBillScan 

join MainSecurity.dbo.KioskPCInfo kpc on prt.KioskPCID = kpc.KioskPCID 
join MainSecurity.dbo.KioskInfoMaster kirn on kim.KiosklnfoID = kpc.KioskID 
25 join MainSecurity.dbo.StoreBank stb on stb.StorelD = kim.StoreID 

where 

prt.PaymentTypelD = 1 and 
prt.QBTed= 10 and 
bdt.CompanyAccountTypeID = 3 

30 group by 

stb.CashDepositABAjStb.CashDepositAccount 

open @EntryDetail 

35 fetch from @EntryDetail 

into @OutputPartl, @OutputPart2, @DetailEntryHash, @DetailDebitAmount 

if @@fetch_status = 0 
begin 

40 select @BatchCount = @BatchCount + 1 

-- Totals for Batch Control Record are figured in the loop 

- PaymentType = 1 for checks 

-- CompanyAccountTypelD = 3 for SWB 
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» record type 5 
- Batch Header 

insert into ##Chase_ACH (OutputLine) 

values 

( '5' 

+ ~ as RecordType, 

r 200 ! 

+ as ServiceClassCode, 
'askHarrisxom f 

4- ~ as CompanyName, 

+ as CompanyDiscretionaryData, 
? 4' + @ChaseCompanyID 
+ as CompanylD, 

'CCD 1 

+ as StandardEntryClassCode, 

'SWB CASH 1 

+ - as CompanyEntryDescription, 

@FileXmitDate 

+ - as CompanyDescriptiveDate, 
@OneDayDate 

+ - as EffectiveEntryDate, 

+ - as Settlement, 

T 

+ as OriginatorStatusCode, 
substring(@ChaseCompanyID ? 1, 8) 

+ - as OriginatingDFIID, 
right( f 0000000 ! + cast(@BatchCount as varchar),7) 

~ as BatchNumber 

) 

- record type 6 
Entry Detail 
select @BatchEntryCount = 0 
select @BatchEntryHash = 0 
select @BatchDebitAmount = 0 

while @@fetch_status = 0 
begin 

select @BatchEntryCount = @BatchEntryCount + 1 

select @BatchEntryHash = @BatchEntryHash + @DetailEntryHash 

158 



select @BatchDebitAmount - @BatchDebitAmount + @DetailDebitAmount 



10 



30 



select @TraceNumber = @TraceNumber + 1 
insert into ##Chase_ACH (OutputLine) 

values (@OutputPartl + right('000000000000000' + cast(@TraceNumber as 
varchar),15) + @OutputPart2 + right('0000000' + cast(@TraceNumber as varchar),7)) 
fetch next from @EntryDetail 

into @OutputPartl, @OutputPart2 ? @DetailEntryHash, @DetailDebitAmount 

end 



-- record type 8 
— Batch Control 

insert into ##Chase_ACH (OutputLine) 
values 
15 ( '8' 

+ - as RecordType, 

'200' 

+ - as ServiceClassCode, 
rightCOOOOOO 1 + cast(@BatchEntryCount as varchar) ? 6) 
20 + - as EntryCount, 

rightCOOOOOOOOOO' + cast(@BatchEntryHash as varchar),10) 

+ — as EntryHash, 

rightCOOOOOOOOOOOO' + cast(cast(round((@BatchDebitAmount * 100),0) as 

bigint) as varchar),12) 
25 + - as TotalDebitAmount, 

'000000000000' 

+ -- as TotalCreditAmount, 
'4* + @ChaseCompanyID 

+ - as CompanylD, 



+ — as Reservedl, 



+ - as Reserved2, 
substring(@ChaseCompanyID, 1, 8) 
35 + - as OriginatingDFI, 

rightCOOOOOOO 1 + cast(@BatchCount as varchar),7) 
- as BatchNumber 

) 

40 - write batch total number to wire transfer table 

insert into 

MainSecurity.dbo.WireTransfers 

(Payee, WireDate, WireAmount, Comment) 
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values 

('ACH: SWB Cash', dateadd(day,@OneDayOffset,getdate()), 
@BatchDebitAmount, 'Generated 1 + convert(varchar,getdateO,101)) 

5 select @FileEntryCount = @FileEntryCount + @BatchEntryCount 

select @FileEntryHash = @FileEntryHash + @BatchEntryHash 
select @FileDebitAmount = @FileDebitAmount + @BatchDebitAmount 

end 

10 close @EntryDetail 



- Fourth Batch: non-SWB cash 
set @EntryDetail = cursor for 
15 select 

'6' 

+ as RecordType, 

77 

+ — as TransactionCode, 
20 stb.CashDepositABA 

+ as ReceivingABA, 
cast(stb.CashDepositAccount as char(17)) 

+ - as DFIAccountNumber, 
rightCOOOOOOOOOO 1 + cast(cast(round((sum(prt.Payment Amount + prt Amount Applied) 
25 * 1 00),0) as bigint) as varchar), 1 0) 
-- as Dollar Amount, 
as Parti, 
'askHarrisxom 1 

+ ~ as DestinationName 

30 T 

+ as MediaDetennination, 
+ -- as DiscretionaryDate, 

'0' 

35 + - as AddendaRecordlndicator, 

substring(@ChaseCompanyID, 1, 8) 
~ as OriginatingDFIID, 
asPart2, 

cast(left(stb.CashDepositABA,8) as int) as EntryHash, 
40 isnull(sum(prt.PaymentAmount + prt.AmountApplied),0) as DebitAmount 

from 

PaymentRecordTransaction prt 

join BillPay bp on bp.PaymentRecordID = prt.PaymentRecordid and bp.KioskPCID - 
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prtKioskPCID and bp.DateStamp = prt.DateTimeofPayment 

joinBillDetailTransactionbdtonbdt.BillDetailID=bp.BillDetailIDandbp.KioskPCID 

- bdt.KioskPCID and bp.DateStamp = bdt.DateTimeofBillScan 

join MainSecurity.dbo.KioskPCInfo kpc on prtKioskPCID = kpc.KioskPCID 
5 join MainSecurity.dbo.KioskInfoMaster kirn on kim.KioskInfoID = kpc.KioskID 

join MainSecurity.dbo.StoreBank stb on stb.StorelD = kim.StoreID 

where 

prtPaymentTypelD = 1 and 
prt.QBTed= 10 and 
10 bdt.CompanyAccountTypelD o 3 



open @EntryDetail 

15 

fetch from @EntryDetail 

into @OutputPartl, @OutputPart2, @DetailEntryHash 5 @DetailDebitAmount 

if@@fetch_status = 0 
20 begin 

select @BatchCount = @BatchCount + 1 



group by 



stb.CashDepositABA, stb.CashDepositAccount 



25 



~ Totals for Batch Control Record are figured in the loop 
-- PaymentType = 1 for checks 

- CompanyAccountTypelD = 3 for SWB 

— record type 5 
~ Batch Header 

insert into ##Chase_ACH (OutputLine) 



values 



30 



( 



+ - as RecordType, 

'200' 



+ — as ServiceClassCode, 
'askHarris.com ' 



35 



+ — as CompanyName, 



+ — as CompanyDiscretionaryData, 



'5' + @ChaseCompanyID 
+ ~ as CompanylD, 



40 



•CCD' 

+ - as StandardEntryClassCode, 



'UTILITY CA' 

+ -- as CompanyEntryDescription, 
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@FileXmitDate 

+ ~ as CompanyDescriptiveDate, 

@TwoDayDate 

+ -- as EffectiveEntryDate, 

5 

+ - as Settlement, 

T 

+ - as OriginatorStatusCode, 
substring(@ChaseCompanyID, 1, 8) 
10 + ~ as OriginatingDFIID, 

right('0000000' + cast(@BatchCount as varchar),7) 
— as BatchNumber 

) 

15 ~ record type 6 

- Entry Detail 

select @BatchEntryCount = 0 
select @BatchEntryHash = 0 
select @BatchDebitAmount = 0 



20 



while @@fetch_status = 0 
begin 



select @BatchEntryCount = @BatchEntryCount + 1 
25 select @BatchEntryHash = @BatchEntryHash + @DetailEntryHash 

select @BatchDebitAmount = @BatchDebitAmount + @DetailDebitAmount 

select @TraceNumber = @TraceNumber + 1 
insert into ##Chase_ACH (OutputLine) 
30 values (@OutputPartl + rightCOOOOOOOOOOOOOOO' + cast(@TraceNumber as 

varchar),15) + @OutputPart2 + right('0000000* + cast(@TraceNumber as varchar),7)) 
fetch next from @EntryDetail 

into @OutputPartl, @OutputPart2, @DetailEntryHash, @DetailDebitAmount 

end 

35 

— record type 8 

- Batch Control 

insert into ##Chase_ACH (OutputLine) 
40 values 

( T 

+ - as RecordType, 

•200' 
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+ — as ServiceClassCode, 
right('000000' + cast(@BatchEntryCount as varchar),6) 

+ as EntryCount, 
right( , 0000000000 ! + cast(@BatchEntryHash as varchar),10) 
5 + as EntryHash, 

right('000000000000 f + cast(cast(round((@BatchDebitAmount * 100),0) as 

bigint) as varchar),12) 

+ - as TotalDebitAmount, 
'000000000000' 
10 + as TotalCreditAmount, 

'5' + @ChaseCompanyID 
+ — as CompanylD, 



15 



30 



35 



+ -- asReservedl, 



+ — as Reserved2, 
substring(@ChaseCompanyID, 1, 8) 

+ - as OriginatingDFI, 
rightCOOOOOOO 1 + cast(@BatchCount as varchar),7) 
20 - as BatchNumber 

) 

- write batch total number to wire transfer table 
insert into 

25 MainSecurity.dbo.WireTransfers 

(Payee, WireDate, WireAmount, Comment) 

values 

('ACH: Utility Cash', dateadd(day,@TwoDayOffset ? getdate()) 5 
@BatchDebitAmount ? 'Generated ' + convert(varchar ? getdate0,101)) 



select @FileEntryCount = @FileEntryCount + @BatchEntryCount 

select @FileEntryHash = @FileEntryHash + @BatchEntryHash 

select @FileDebitAmount = @FileDebitAmount + @BatchDebitAmount 

end 

close @EntryDetail 



- Fifth Batch: Service Charge Payouts 
set @EntryDetail = cursor for 
40 select 

*6' 

+ - as RecordType, 

f 22' 
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+ -- as TransactionCode, 
stb.StorePaymentABA 

+ - as ReceivingABA, 
cast(stb.StorePaymentAccount as char(17)) 
5 + as DFIAccountNumber, 

rightCOOOOOOOOOO' + cast(cast(round((sum(case bdtServiceAmt 

when 1 then .75 

when .5 then .25 

when 0 then 0 
10 end) * 100),0) as int) as varchar),10) 

— as Dollar Amount, 
as Parti, 

! Kroger ' 

+ — as DestinationName 

15 T 

+ — as MediaDetermination, 
+ — as DiscretionaryDate, 

'0' 

20 + — as AddendaRecordlndicator, 

substring(@ChaseCompanyID, 1, 8) 

— as OriginatingDFIID, 
as Part2, 

cast(left(stb.StorePaymentABA,8) as int) as EntryHash, 
25 isnull(sum(case bdt.ServiceAmt 

when 1 then .75 
when .5 then .25 
when 0 then 0 
end),0) as CreditAmount, 
30 isnull(sum(.25),0) as askSvcChg 

from 

PaymentRecordTransaction prt 

join BillPay bp on bp.PaymentRecordID = prt.PaymentRecordid and bp.KioskPCID = 
prt.KioskPCID and bp.DateStamp = prt.DateTimeofPayment 
35 joinBillDetailTransactionbdtonbdt.BillDetaiUD=bp.BillDetailIDandbp.Kiosk^ 
= bdt.RioskPCID and bp.DateStamp = bdtDateTimeofBillScan 

join MainSecurity.dbo.KioskPCInfo kpc on prt.KioskPCID = kpc.KioskPCID 
join MainSecurity.dbo.KioskInfoMaster kim on kim.KiosklnfoID = kpc.KioskID 
join MainSecurity.dbo.StoreBank stb on stb.StorelD = kim.StorelD 

40 where 

prtPaymentTypelD = 1 and 
prt.QBTed=10 
group by 
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stb.StorePaymentABA, 
stb.StorePaymentAccount 

open @EntryDetail 

5 

fetch from @EntryDetail 

into @OutputPartl , @OutputPart2, @DetailEntryHash, @DetailCreditAmount, 
@DetailAHSvcChg 

10 if @@fetch_status = 0 
begin 

select @BatchCount = @BatchCount + 1 

- Totals for Batch Control Record are figured in the loop 
15 record type 5 

— Batch Header 

insert into ##Chase_ACH (OutputLine) 

values 

( '5' 

20 + - as RecordType, 

•200' 

+ - as ServiceClassCode, 
! askHarris.com ' 

+ — as CompanyName, 

25 

+ — as CompanyDiscretionaryData, 
'6' + @ChaseCompanyID 
+ - as CompanylD, 

'CCD' 

30 + as StandardEntryClassCode, 

'SVCCHG ' 

+ „ as CompanyEntryDescription, 

@FileXmitDate 

+ - as CompanyDescriptiveDate, 

35 @TwoDayDate 

+ -- as EffectiveEntryDate, 

+ - as Settlement, 

T 

40 + - as OriginatorStatusCode, 

substring(@ChaseCompanyID, 1, 8) 

+ — as OriginatingDFIID, 
rightC0000000 f + cast(@BatchCount as varchar),7) 
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10 



- as BatchNumber 

) 

- record type 6 

— Entry Detail 

select @BatchEntryCount = 0 
select @BatchEntryHash = 0 
select @BatchCreditAmount = 0 
select @TotalAHSvcChg = 0 

while @@fetch_status = 0 
begin 



select @BatchEntryCount = @BatchEntryCount + 1 
15 select @BatchEntryHash = @BatchEntryHash + @DetailEntryHash 

select @BatchCreditAmount = @BatchCreditAmount + @DetailCreditAmount 
select @TotalAHSvcChg = @TotalAHSvcChg + @DetailAHSvcChg 

select @TraceNumber = @TraceNumber + 1 
20 insert into ##Chase_ACH (OutputLine) 

values (@OutputPartl + right('000000000000000' + cast(@TraceNumber as 
varchar),15) + @OutputPart2 + right( f 0000000' + cast(@TraceNumber as varchar),7)) 
fetch next from @EntryDetail 

into @OutputPartl , @OutputPart2, @DetailEntryHash, ©DetailCreditAmount, 
25 @DetailAHSvcChg 
end 



— Write record to pay out askHarris service charge 
30 select @TraceNumber = @TraceNumber + 1 

select @BatchEntryCount = @BatchEntryCount + 1 

select @BatchEntryHash = @BatchEntryHash + left(@AskHarrisSvcChgABA 5 8) 
select @BatchCreditAmount = @BatchCreditAmount + @TotalAHSvcChg 
insert into ##Chase_ACH (OutputLine) 
35 values 

( '6' 

+ ~ as RecordType, 

'22' 

+ — as TransactionCode, 
40 @AskHarrisSvcChgABA 

+ - as ReceivingABA, 
@AskHarrisSvcChgAccount 

+ as DFIAccountNumber, 
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rightCOOOOOOOOOO' + cast(cast(round((@TotalAHSvcChg * 100),0) as int) as 

varchar),10) 

+ right('000000000000000' + cast(@TraceNumber as varchar),15) 
+ — as Dollar Amount, 
5 'askHarris.com ' 

+ as DestinationName 

t 

+ as MediaDetermination, 

10 + - as DiscretionaryDate, 

'0' 

+ ~ as AddendaRecordlndicator, 
substring(@ChaseCompanyID, 1, 8) 
- as OriginatingDFIID 
15 + rightCOOOOOOO' + cast(@TraceNumber as varchar) ? 7) 

) 

- record type 8 

- Batch Control 

20 insert into ##Chase_ACH (OutputLine) 

values 
( '8 1 

+ - as RecordType, 

'200' 

25 + as ServiceClassCode, 

right('000000' + cast(@BatchEntryCount as varchar),6) 

+ — as EntryCount, 
rightCOOOOOOOOOO' + cast(@BatchEntryHash as varchar),10) 
+ - as EntryHash, 
30 '000000000000' 

+ — as TotalDebitAmount, 
right('000000000000 f + cast(cast(round((@BatchCreditAmount * 100),0) as 
bigint) as varchar),12) 

+ — as TotalCreditAmount, 
35 '6' + @ChaseCompanyID 

+ — as CompanylD, 

+ — as Reserved 1, 

40 + — as Reserved2, 

substring(@ChaseCompanyID, 1, 8) 

+ - as OriginatingDFI, 
right('0000000 f + cast(@BatchCount as varchar),7) 
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- as BatchNumber 

) 

— write batch total number to wire transfer table 
5 insert into 

MainSecurity.dbo.WireTransfers 

(Payee, WireDate, WireAmount, Comment) 

values 

('ACH: Service Charges', dateadd(day,@TwoDayOffset,getdate()), 
10 @BatchCreditAmount 5 Generated 1 + convert(varchar,getdate0,lOl)) 

write askHarris number to wire transfer table 
insert into 

MainSecurity.dbo.WireTransfers 
15 (Payee, WireDate, WireAmount, Comment) 

values 

('ACH: askHarris Fee f , dateadd(day,@TwoDayOffset,getdate()), 
@TotalAHSvcChg, 'Generated ' + convert(varchar,getdate() ? 101)) 

20 select @FileEntryCount = @FileEntryCount + @BatchEntryCount 

select @FileEntryHash = @FileEntryHash + @BatchEntryHash 
select @FileCreditAmount = @FileCreditAmount + @BatchCreditAmount 

end 



25 close @EntryDetail 

- Sixth Batch: Cash Vouchers 
set @EntryDetail = cursor for 
select 
30 '6' 

+ — as RecordType, 

'22' 

+ — as TransactionCode, 
stb.StorePaymentABA 
35 + as ReceivingABA, 

cast(stb.StorePaymentAccount as char(17)) 

+ — as DFIAccountNumber, 
right('0000000000' + cast(cast(round((sum(cvd.CashVoucherAmount) * 100),0) as 
bigint) as varchar),10) 
40 as Dollar Amount, 

as Parti, 
'Kroger 1 

+ — as DestinationName 
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+ ~ as MediaDetermination, 
+ - as DiscretionaryDate, 

5 '0' 

+ as AddendaRecordlndicator, 
substring(@ChaseCompanyID, 1, 8) 
as OriginatingDFIID, 
as Part2, 

10 cast(left(stb.StorePaymentABA,8) as int), 

isnull(sum(cvd.CashVoucherAmount) ? 0) as VoucherTotal 

from 

CashVoucherlssueDetailTransaction cvd 

join MainSecurity.dbo.KioskPCInfo kpc on cvd.KioskPCID = kpc.KioskPCID 
15 join MainSecurity.dbo.KiosklnfoMaster kirn on kim.KiosklnfoID = kpc.KioskID 

join MainSecurity.dbo.StoreBank stb on stb.StorelD = kim.StorelD 

where 

cvd.QBTed=10 
group by 

20 stb.StorePaymentABA, 

stb.StorePaymentAccount 

open @EntryDetail 

25 fetch from @EntryDetail 

into @OutputPartl, @OutputPart2, @DetailEntryHash, @DetailCreditAmount 

if@@fetch_status = 0 
begin 

30 select @BatchCount = @BatchCount + 1 

- Totals for Batch Control Record are figured in the loop 

- record type 5 

- Batch Header 

insert into ##Chase_ACH (OutputLine) 
35 values 

( '5' 

+ - as RecordType, 

700' 

+ — as ServiceClassCode, 
40 'askHarris.com ' 

+ as CompanyName, 

+ as CompanyDiscretionaryData, 
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7' + @ChaseCompanyID 
+ - as CompanylD, 

'CCD' 

+ ~ as StandardEntryClassCode, 
5 'CA VOUCHER 1 

+ — as CompanyEntryDescription, 
@FileXmitDate 

+ — as CompanyDescriptiveDate, 
@TwoDayDate 
10 + — as EffectiveEntryDate, 

+ as Settlement, 

T 

+ as OriginatorStatusCode, 
15 substring(@ChaseCompanyID, 1, 8) 

+ — as OriginatingDFIID, 
rightC0OO0OO0 ? + cast(@BatchCount as varchar),7) 
- as BatchNumber 



20 



) 



- record type 6 

- Entry Detail 

select @BatchEntryConnt = 0 
select @BatchEntryHash = 0 
25 select @BatchCreditAmount = 0 

while @@fetch_status = 0 
begin 

30 select @BatchEntryCount = @BatchEntryCount + 1 

select @BatchEntryHash = @BatchEntryHash + @DetailEntryHash 

select @BatchCreditAmount = @BatchCreditAmount + @DetailCredit Amount 

select @TraceNumber = @TraceNumber + 1 
35 insert into ##Chase_ACH (OutputLine) 

values (@OutputPartl + right( r 000000000000000' + cast(@TraceNumber as 
varchar),15) + @OutputPart2 + rightCOOOOOOO 1 + cast(@TraceNumber as varchar),7)) 
fetch next from @EntryDetail 

into @OutputPartl, @OutputPart2 ? @DetailEntryHash, @DetailCreditAmount 

40 end 



- record type 8 
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Batch Control 
insert into ##Chase_ACH (OutputLine) 
values 
( '8' 

5 + — as RecordType, 

'200' 

+ — as ServiceClassCode, 
right('000000 f + cast(@BatchEntryCount as varchar),6) 
+ - as EntryCount, 

10 rightCOOOOOOOOOO' + cast(@BatchEntryHash as varchar), 1 0) 

+ — as EntryHash, 
'000000000000' 

+ as TotalDebitAmount, 
right('000000000000' + cast(cast(round((@BatchCreditAmount * 100),0) as 
1 5 bigint) as varchar), 1 2) 

+ - as TotalCreditAmount, 
7' + @ChaseCompanyID 
+ - as CompanylD, 

20 + — as Reserved 1 , 

+ - as Reserved2, 
substring(@ChaseCompanyID, 1, 8) 
+ ~ as OriginatingDFI, 
25 right('0000000' + cast(@BatchCount as varchar),7) 

— as BatchNumber 

) 

write batch total number to wire transfer table 
30 insert into 

MainSecurity.dbo.WireTransfers 

(Payee, WireDate, WireAmount, Comment) 

values 

('ACH: Cash Voucher 1 , dateadd(day,@TwoDayOffset,getdate()), 
35 @BatchCreditAmount, 'Generated 1 + convert(varchar,getdate(), 101)) 

select @FileEntryCount = @FileEntryCount + @BatchEntryCount 

select @FileEntryHash = @FileEntryHash + @BatchEntryHash 

select @FileCreditAmount = @FileCreditAmount + @BatchCreditAmount 

40 end 

close @EntryDetail 
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Seventh Batch: Southwestern Bell CTX 



-- cursor for RMR (remittance) EDI info 
declare @EDIinfo varchar(80) 
5 declare EDI cursor for 
select 

*RMR*IV*' 

+ 

cast(max(bdt.BillAccountNumber) as varchar) 
10 + <**' + 

cast((sum(prt.PaymentAmount) - max(bdt.ServiceAmt)) as varchar) 
+ f VasEDIinfo 

from 

PaymentRecordTransaction prt 
15 join BillPay bp on prtKioskPCID = bp.KioskPCID and prt.PaymentRecordID - 

bp.PaymentRecordID and prtDateTimeofPayment = bp.DateStamp 

j oin BillDetailTransaction bdt on bdtKioskPCID = bp.KioskPCID and bdtBillDetaillD 
= bp.BillDetaillD and bdtDateTimeofBillScan = bp.DateStamp 
where 

20 bdtcompanyaccounttypeid = 3 and 

bdt.QBTed=10 

~ and 

prt.PaymentAmount > 0 
group by bdt.billdetailid, bdtkioskpcid 
25 having (sum(prt^ayment Amount) - max(bdt.ServiceAmt)) > 0 
order by EDIinfo 



30 



open EDI 

fetch from EDI into @EDIinfo 

if @@fetch_status = 0 
begin 

select @BatchCount = @BatchCount + 1 

35 — record type 7 

— Addenda 

— containing EDI 820 data for SWB payments 

— generate batch credit amount for EDI and CTX detail 
40 select @BatchCreditAmount = sum(dummy) 

from 
(select 

isnull((sum(prt.PaymentAmount) - max(bdt.ServiceAmt)) ? 0) as dummy 
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from 

PaymentRecordTransaction prt 

join BillPay bp on prt.KioskPCID = bp.KioskPCID and prtPaymentRecordlD 
= bp.PaymentRecordID and prt.DateTimeofPayment = bp.DateStamp 
5 join BillDetailTransaction bdt on bdtKioskPCID = bp.KioskPCID and 

bdtBillDetaillD = bp.BillDetailID and bdtDateTimeofBillScan = bp.DateStamp 
where 

bdt.CompanyAccountTypelD = 3 and 
bdt.QBTed=10 
10 group by bdtbilldetailid, bdt.kioskpcid 

having (sum(prt.PaymentAmount) - max(bdt.ServiceAmt)) > 0) foo 



~ print EDI header and address info 
15 select ©OutputLine = *ISA*00* *00* W798520847 *01*006968523 

*' + ©FileXmitDate + + @FileXmitTime + '*U*00401*'+ @EDIControlNbr + '»0*P*>V 
while len(@OutputLine) > 80 
begin 

insert into ##SWB_EDI (OutputLine) 
20 values (left(@OutputLine, 80)) 

select @OutputLine = substring(@OutputLine, 81, 200) 

end 

25 select ©OutputLine = ©OutputLine + 1 GS*RA*798520847*006968523*20' + 

©FileXmitDate + + ©FileXmitTime + •*01*X*004010V + 'ST*820*0001V 
while len(@OutputLine) > 80 
begin 

30 insert into ##SWB_EDI (OutputLine) 

values (left(@OutputLine, 80)) 

select ©OutputLine = substring(@OutputLine, 81, 200) 

end 

35 

select ©OutputLine = ©OutputLine + 'BPR*C*' + cast(@BatchCreditAmount as 
varchar) + 

'*C*ACH*CTX*01* 1 1 1 000609*DA*308025361 34* 1 '+substring(@ChaseCompanyID, 1, 
9 ) + .**0i*021000021*DA*ICP323076769*20' + ©OneDayDate + '*VEN\' 
40 while len(@OutputLine) > 80 

begin 

insert into ##SWB_EDI (OutputLine) 
values (left(@OutputLine, 80)) 
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select @OutputLine = substring(@OutputLine, 81, 200) 

end 

select @OutputLine = @OutputLine + 
5 TRN*01*00000000000001*l'+substring(@ChaseCompanyID, 1, 9)+'V + 
'Nl *PE*SOUTHWESTERN BELL TELEPHONED 1*006968523V + WP.O. BOX 930170V 
while len(@OutputLine) > 80 
begin 

insert into ##SWB_EDI (OutputLine) 
10 values (left(@OutputLine, 80)) 

select @OutputLine = substring(@OutputLine, 81, 200) 

end 

15 seIect@OutputLme=@OutputLine+'N4*DALLAS* , DC*753930170V+ , Nl*PR*ASK 
HARRIS*03*798520847V + 'N3*2700 POST OAK SUITE 600V + 
•N4*HOUSTON*TX*77056V + 'ENT*1V 

while len(@OutputLine) > 80 
20 begin 

insert into ##SWB_EDI (OutputLine) 
values (left(@OutputLine, 80)) 

select @OutputLine = substring(@OutputLine, 81, 200) 

25 end 



30 



35 



declare @EDICount int 
select @EDICount= 10 

— loop over EDI cursor and fill temp table 

while @@fetch_status = 0 

begin 

select @EDICount = @EDICount + 1 



select @OutputLine = @OutputLine + @EDIinfo 

while len(@OurputLine) > 80 

begin 

insert into ##SWB_EDI (OutputLine) 
40 values (left(@OutputLine, 80)) 

select @OutputLine = substring(@OutputLine, 81, 200) 

end 
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— don't forget to fetch the next one 
fetch next from EDI into @EDIinfo 

end 



10 



20 



select @OutputLine = @OutputLine + 'SE*' + cast(@EDICount+l as varchar) + **0001 V 
+ 'GE*1*01Y + 'IEA*1*000000001V 
while len(@OutputLine) > 80 
begin 

select @EDICount = @EDICount + 1 

insert into ##SWB_EDI (OutputLine) 
values (left(@OutputLine, 80)) 



15 end 



select @OutputLine = substring(@OutputLine, 81, 200) 

select @EDICount = @EDICount + 1 

insert into ##SWB_EDI (OutputLine) 
values (@OutputLine) 



~ record type 5 
— Batch Header 

insert into ##Chase_ACH (OutputLine) 
25 values 

( '5* 

+ — as RecordType, 

'200' 

+ — as ServiceClassCode, 
30 'askHarris.com ' 

+ - as CompanyName, 

+ — as CompanyDiscretionaryData, 
T + @ChaseCompanyID 
35 + - as CompanylD, 

'CTX' 

+ — as StandardEntryClassCode, 
'SWB PAYMT ' 

+ — as CompanyEntryDescription, 
40 @FileXmitDate 

+ ~ as CompanyDescriptiveDate, 
@OneDayDate 

+ « as EffectiveEritryDate, 
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20 



+ - as Settlement, 

T 

+ — as OriginatorStatusCode, 
left(@ChaseCompanyID, 8) 

+ as OriginatingDFIID, 
rightCOO0OO0O , + cast(@BatchCount as varchar),7) 

— as BatchNumber 



) 



— record type 6 

— Entry Detail 

— CTX entry detail is not like the others 

15 declare @AddendaCount int 

select 

@AddendaCount = count(*) 

from 

##SWB EDI 



select @BatchEntryCount = 1 
select @BatchEntryHash = 2100002 



select @TraceNumber = @TraceNnmber + 1 
25 insert into ##Chase_ACH (OutputLine) 

values 

( 

'6' 

+ as RecordType, 

30 '22' 

+ — as TransactionCode, 
'021000021' 

+ — as ReceivingABA, 

— remember, BatchEntryHash is set above. 
35 cast('ICP323076769' as char(17)) 

+ — as DFIAccountNumber, 
right('0000000000' + cast(cast(round(@BatchCreditAmount * 1 00,0) as bigint) 

as varchar),10) 

— as Dollar Amount, 

40 + right('000000000000000' + cast(@TraceNumber as varchar),15) + 

right('0000' + cast(@AddendaCount as varchar),4) 

+ — number of addenda records 
cast('Southwestern Bell' as char(16)) 
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4- - as DestinationName 
+ - as Reserved 

5 + as DiscretionaryData, 

T 

+ - as AddendaRecordlndicator, 
left(@ChaseCompanyID 3 8) 

~ as OriginatingDFIID, 
0 + right( ! 0000000' + cast(@TraceNumber as varchar) ? 7) 

) 



— cursor for wrapped EDI info 
15 declare EDI2 cursor for 

select 

OutputLine 

from 

##SWB_EDI 
20 order by 

id 

open EDI2 

fetch from EDI2 into @EDIinfo 
25 select @EDICount = 0 

- print addenda records 
while @@fetch_status = 0 
begin 

30 select @EDICount = @EDICount + 1 

select @TraceNumber = @TraceNumber + 1 

insert into ##Chase_ACH (OutputLine) 
values 
35 ( 

+ -- as RecordType, 

•OS 1 

+ -- as AddendaType, 
@EDIinfo 

40 + — as Info, 

right('0000 f + cast(@EDICount as varchar) 3 4) 

+ - as AddendaSeqNo, 
right('0000000' + cast(@TraceNumber as varchar)J) 
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— as TraceNumber 

) 

— don't forget to fetch the next one 
5 fetch next from EDI2 into @EDIinfo 

end 

select @EDICount = @EDICount + 1 

close EDO 
10 deallocate EDI2 

~ record type 8 
— Batch Control 

insert into ##Chase_ACH (OutputLine) 
15 values 

( ! 8' 

+ — as RecordType, 

700' 

+ - as ServiceClassCode, 
20 right('000000 r + cast(@EDICount as varchar),6) 

+ — as EntryCount, 
right('0000000000 f + cast(@BatchEntryHash as varchar) ? 10) 

+ ~ as EntryHash, 
'000000000000' 
25 + — as TotalDebitAmount, 

right('000000000000 f + cast(cast(round((@BatchCreditAmount * 100),0) 
bigint) as varchar),12) 

+ -- as TotalCreditAmount, 
T + @ChaseCompanyID 
30 + as CompanylD, 

+ ~ as Reservedl, 

4- ~ as Reserved2, 
35 left(@ChaseCompanyID, 8) 

+ — as OriginatingDFI, 
right('0000000' + cast(@BatchCount as varchar) ? 7) 
— as BatchNumber 

) 



40 



— write batch total number to wire transfer table 
insert into 

MainSecurity.dbo.WireTransfers 
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(Payee, WireDate, WireAmount, Comment) 

values 

('ACH: SWB Payment', dateadd(day,@OneDayOffset,getdate()), 
@BatchCreditAmount ? 'Generated 1 + convert(varchar ? getdate0,101)) 

5 

select @FileEntryCount = @FileEntryCount + @EDICount 

select @FileEntryHash = @FileEntryHash + @BatchEntryHash 

select @FileCreditAmount = @FileCreditAmount + @BatchCreditAmount 

10 end 

close EDI 
deallocate EDI 

15 — record type 9 
- File Control 

insert into ##Chase_ACH (OutputLine) 

values 

( '9* 

20 + - as RecordType, 

right( f 000000' + cast(@BatchCount as varchar),6) 
+ — as BatchCount, 

rightCOOOOOO' + cast(((@FileEntryCount + 2 +(@BatchCount * 2)) / 10) + 1 as 
varchar),6) 
25 + -- as BlockCount, 

right( ! 00000000' + cast(@FileEntryCount as varchar),8) 

+ - as EntryCount, 
right( f 00000000' + cast(@FileEntryHash as varchar),10) 
+ -- as EntryHash, 

30 rightCOOOOOOOOOOOO' + cast(cast(round((@FileDebitAmount * 100),0) as bigint) as 

varchar),12) 

+ as TotalDebitDollar, 
rightCOOOOOOOOOOOO' + cast(cast(round((@FileCreditAmount * 100),0) as bigint) as 
varchar),12) 
35 + - as TotalCreditDollar, 

-- as Reserved 

) 

40 select @TraceNumber = 10 - (@FileEntryCount + 2 + (@BatchCount * 2))%10 
if@TraceNumber<>10 

while @Tracenumber > 0 
begin 
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insert into ##Chase_ACH (OutputLine) 

values 
(-9999999999999999999999999999999999999999999999999999999999999999999999999 

999999999999999999999') 

5 select @TraceNumber = @TraceNumber - 1 

end 

- print from temp table and move to output file 
declare @BCPCommand varchar(200) 
10 select @BCPCommand = 'bcp "SELECT OutputLine FROM ##Chase_ACH order by id" 
queryout @FileName + IT Id 
EXEC master..xp_cmdshell @BCPCommand 

select @BCPCommand = 'move ' + @FileName + ' 
15 \\ASKVTS01\Transmissions\outgoing\Chase\ ! 
EXEC master..xp_cmdshell @BCPCommand 

insert into 

MainSecurity.dboJobRC 
20 (DateTime, ReturnCode, JobTxt, TxtComment) 

values 

(getdate(), 0, ! Chase ACH file', Tile generated successfully.') 
SELECT OutputLine FROM ##Chase_ACH order by id 

25 

drop table ##SWB_EDI 
drop table ##Chase_ACH 

end create proc 

30 
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The present invention contemplates a variety of steps which may be all inclusive or 
utilized on a selective basis to implement the method. The machine and the method may be 
designed so that the operator initially selects the language which will be utilized on instructions 
appearing on the video screen 3 and in the audio companion instructions also appearing on the 
5 video screen 3. The operator simply touches the touch screen monitor 3 at the appropriate 
location to designate a language, such as English, Spanish, French, or the like. Thereafter, the 
operator is asked if the payment is to be for one bill or a number of bills. If the customer elects 
to process only one bill for payment, the customer chooses by application through the touch 
screen monitor 3 at the appropriate location the "BILL PAY" identification. Alternatively, if 
10 the customer would like to pay multiple bills, an indicator on the touch screen monitor 3, such 
as "COMPLEX" or "MULTI-BILLS" will appear on the screen and the operator applies a finger 
or otherwise touches the appropriate location on the screen 3 to reflect his/her selection. 

The machine and method of the present invention are preferably designed to charge the 
operator a nominal fee for the electronic payment process. Accordingly, the customer is asked 
15 to understand and agree to the terms of the operation of the machine and the practice of the 
method, including agreement to the payment of a service charge by touching the "AGREE" field 
on the screen 3. Alternatively, the customer may touch "CANCEL" to return to the "MAIN 
MENU" reflected on the screen. 

The next sequence of steps in the operation of the machine and the practice of the 
20 method is for the operator to select a utility or other company, sometimes referred to as "billor", 
to whom payment is to be made. Accordingly, the identification of the utility or other company 
will appear on the screen 3 and the operator will touch the identification of such company at the 
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appropriate location on the screen 3. 

After the billor has been selected by the operator, the bill is scanned through the bill 
scanner 6 after an instruction to do so is reflected on the screen 3 concurrently and preferably 
with a similar audio instruction. 

The machine and method of the present invention contemplate providing a discount of 
the service charge for senior citizens, disabled or other preselected groups of individuals or 
entities under an obligation to satisfy payment of bills by the billors (such people and the group 
sometimes referred to as "payors"). For example, if a discount is to be given to a senior citizen, 
a query regarding same appears on the screen 3 and confirmed through audio companion signal 
to the operator for an inquiry to confirm "senior citizen" status. The operator then touches the 
appropriate location on the screen to confirm "YES" or "NO". Verification of senior citizen 
status is established by insertion by the operator of a driver's license or other personal 
identification in the card reader portion of the key pad on the optical check reader 5 . Thereafter, 
the computer in the machine calculates the amount due from data extracted from the bill inserted 
into the machine, and the operator is asked on the screen 3 how payment will be made. For 
example, "CASH", "CASH/CHECK", "CHECK", options may appear on the screen 3 and the 
operator may touch the appropriate location for manner of payment. 

If cash payment is selected, the total balance is displayed on the screen 3 and the 
appropriate amount of cash is deposited by the operator into the bill acceptor 6. The bill 
acceptor 6 will extract data therefrom and the computer will calculate and confirm complete, 
exact payment, or, if over payment, will generate an instruction to the bill acceptor 6 to generate 
a cash voucher, as required. Alternatively, the machine will indicate on the touch screen 3 an 



excess of money which may be applied as either a credit against future bills of the billor or 
payment of another bill by the billor or another billor in subsequent operation of the machine. 
Alternatively, if change is due, a "cash" voucher may be issued by query to the operator on the 
video screen 3 and confirmation by touching the appropriate location on the screen. A credit 
voucher will then be generated by the machine. Alternatively, over-payment of the bill may be 
either applied directly to the bill by touching the appropriate location in response to a query 
appearing on the screen 3 or, alternatively, confirming by touch to the screen 3 application of 
the over-payment to the next utility bill to be paid on the machine. 

If the check option is desired by the operator for payment of all or part of the bill, the 
query appears on the screen 3 and confirmation thereof is indicated by the operator touching the 
appropriate location on the screen. The check is then scanned as previously described through 
introduction of the check into the reader 5. 

Another feature of the present invention is the ability to scan and process the check used 
to pay a bill without the necessity of the person or entity owing the bill, or the operator of the 
machine being required to actually sign the check and/or fill in the amount of the check. The 
check is scanned and processed as an ACH transaction. If the operator desires to pay the bill 
by use of a check, the computer generates a graphics and video instruction to the operator that 
it is not necessary to fill out the check or sign it. The customer then is instructed to introduce 
the check through the scanner and it is returned to the customer. An image of the check is 
recorded in the data base in the computer and picture of the customer is taken. The customer 
is then asked for authorization to use the driver' s license or other identification document of the 
customer for identification purposes and the driver's license is then scanned for information 



thereon. The customer is then asked to confirm through touch on the touch screen in an 
appropriate location to confirm that the customer is an authorized signor on the checking 
account. A manual confirmation by the customer of the amount to be paid through the check 
may be made by introducing the monetary amount of the check by application of fingers to the 
5 key pad. The ACH transaction is then processed in batch or real time through an electronic 
banking ACH process for deduction of the amount from the customer's checking account as 
indicated for the transaction. If a check is used for payment regardless of whether or not it is 
signed and/or filled out, proper identification of the operator is prompted by the operator 
confirming permission to use a driver's license by response to a query appearing on the screen 

10 3. The operator touches the "OK TO USE DRIVERS LICENSE" or other appropriate wording, 
by touch to corresponding field on the screen 3. The drivers license or other document of the 
operator is then scanned and information is stored in the computer thereon. The computer will 
then read a magnetic strip or the like on the back of the drivers license or other identification 
card. Confirmation of authorization to sign on the checking account reflected on the check is 

15 also processed through the machine. The customer is asked to so confirm by appropriate 
message appearing on the touch screen 3 and the customer is prompted to apply touch in the 
appropriate location to a message reading "CONFIRM" or the like. 

The full amount of the total bill payment is displayed on the screen 3 after processing 
through the computer. If the customer wishes to pay the full amount of the bill through check, 

20 the customer will press the field "PAY FULL" appearing on the screen 3. 

The machine and method will accommodate partial payment of the full amount 
displayed by check upon so indicating by the customer in the appropriate field on the screen 3. 
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The checking account information extracted by the machine, including the amount paid on the 
bill is transmitted in real time or batch concurrently from the financial institution issuing the 
check and holding the account of the operator to the account of the payor at the billor. The 
check then is returned through the optical check reader 5 to the customer and a receipt is 
5 generated by the computer and printed on paper through the printer 8 in the machine. 
Alternatively, a cash voucher may be issued through the printer 8 or the amount can be treated 
as a "credit" for use by the operator in paying another bill. If another bill is desired to be paid, 
the process is repeated. Now with reference to the logic flow chart of Figs. 2A and 2B, 
the human operator or customer initiates bill payment by pressing the start button 1 on the face 

10 of the kiosk machine 1 00 and is asked via a message on the video screen blank and/or via audio 
message if the customer agrees to a service charge of a specified amount, for example $1, at 
message 2A. Pressing of the "no" (or "agree") button 2B, (or failure to press the "yes" button 
2C) within a specified short time, say, 5 seconds, will cause movement to the exit field 3 and 
shut down of the service function to the operator. An affirmation of the service charge 2A 

15 through activation of the "yes" button 2C will open to the operator the selection of the utility 
company 4 either by pressing in an appropriate place on the screen corresponding to an 
identification of the selected utility, by pressing a selection button, or the like. The machine 
next tests if the electronic bill scanner is properly working in field 5. If the scanner is not 
working properly an "out of order" message 6 is generated and an alert message is sent via e- 

20 mail or other signal and an "out of order" is displayed on the video screen in function 7. 

If the scanner check step 5 indicates proper functioning 8, the actual bill payment 
functions are initiated at function 9. As shown in Fig. 2A, the payment step may be that of 
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actually paying a bill of a utility or making a deposit for security or as a pre-payment against 
a future bill. The operator is prompted at step 9 to select either the "deposit" or the "bill" 
payment option by touching an appropriate place on the video screen or by pressing a button 
or otherwise. If the deposit sub-function 9B is selected, the machine then determines if the 
5 selected utility company allows pledges or donations at function 10. If this answer is 
affirmative 10A, the operator is asked if he/she desires to make such donation at 10B. If the 
operator responds affirmatively at 10C, the operator then enters on the key pad or by touching 
the video screen the amount of the donation 11. However, if the operator elects not to make a 
donation, the "no" button 10D is pressed, or the equivalent position on the video screen is 
10 contacted by the operator to lead to the next operation, discussed below. 

If no donation amount is entered by the customer at function 10D, the operator is 
prompted via audio/video message to confirm the amount of the donation through step 12. 

After the amount is confirmed at 13, the customer is asked if he/she is a senior citizen 
14. This question is also asked as the next step in the event that the utility or other billor does 
1 5 not accept pledges or donations at 1 0 or if the operator does not wish to make a donation 1 0D . 

If the operator answers affirmatively that he/she is a senior citizen 14 A, the operator is 
asked to apply his/her driver's license or other identification document to an optical or similar 
scanner 15. If the results of the scanning of the driver's license at 15 indicates that the age of 
the operator is over a specified amount, such as 55 years at step 1 6, by affirmative answer "yes" 
20 1 6A, a deduction of a specified amount of the service charge for example, 500 is activated at 
17 A. If the age requirement for the service charge deduction is not satisfied at 16B, i.e., the 
operator is not a senior citizen 14B, the computer program will cause the machine to 
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automatically add a service charge in a specified amount, for example, $1.00 at step 18. 
Alternatively, if the customer is a senor citizen and the driver's license scan confirms that the 
customer is over a specified age, the deduction at step 17A is made after application of the 
service charge at 18. 

5 The next grouping of steps in the operation of the present bill payment method and 

machine involves the collection and transfer of funds for payment of the selected bill of the 
utility or other company. The operator is asked through step 19 whether payment will be made 
through cash 19A or check 19B. If the operator presses the appropriate button on the key pad 
or touches the appropriate field in the video screen for payment by check 19B, the check is 
10 scanned at 20 through the appropriate scanner. The data base in the computer is then checked 
at field 21 to see if the check has been previously utilized or processed for payment at another 
location, such as through direct processing or the like. The name on the check reflected through 
the check scan at 20 is compared against the name on the driver' s license scanned at 1 5 to verify 
the name on the checking account reflected on the check at step and field 22. The driver's 
15 license is again scanned at 15 A, as in 15 and a photograph of the operator is digitally taken 
through a digitized photo reproduction means also at 1 5 A. Confirmation that the operator is an 
authorized person on the account is made at 24, such as by communication and confirmation 
through the bank or other financial institution (not shown). 

The operator then is asked at 25 if either full or partial payment of the bill is to be made. 
20 If full payment is to be made by indication of "yes" at 26, the signal from the check scan 
function 20 is retained at 27 and a receipt is printed and received by the operator at 28. 
However, if the customer indicates only partial payment of the bill at 29, the amount of the 
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check is entered at 30 and confirmed at 31 . This step is repeated through repeat function 32 
until the check amount 30 is confirmed. 

Returning to the determination of whether payment is to be made by cash or check, at 
function 19, if the operator indicates through the key pad or touches the appropriate point on the 

5 video screen, that the payment is to be made through cash, 1 9A, the cash is inserted through the 
cash receiving device at 23. The operator then confirms full cash payment by pressing "done" 
on the key board or by touching such position on the video screen. The device then confirms 
either correct payment, over payment, or under payment at function 34. If the bill has been 
under paid at 34, the operator is asked to either insert additional money at 33 or may pay the 

10 difference at 35 through check, in which case, the check is scanned at 20 and the steps are 
followed as though complete payment had been made through check. If correct payment has 
been made at 36, a receipt for the amount is made through step 28. Likewise, if the operator 
elects not to pay the remaining amount by check at step 35, through 37, the final receipt is 
printed at 28 for the amount of the payment, even though it is less than the full amount owed 

15 for the bill to be paid. 

If the operator has overpaid the bill through an indication at field 34, the operator is 
prompted to select a cash voucher for future usage or to apply the amount of the overpayment 
to the next bill at step 38. If a "cash voucher" is indicated, the cash voucher is printed at 39. 
Alternatively, the amount of the over payment is added to the total in the data base at 40. In 
20 either event of 39 or 40, a receipt is then printed at 28. Alternatively, an overpayment indicated 
at 34 may be applied to the next bill to be paid through the system at 36, in which event the 
customer indicates a desire to pay another bill at 37 and the bill payment cycle is continued at 
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41 by selecting the second utility company at 4 and repeating the steps described above.. 

Returning to the step of either depositing an amount or paying a bill at step 9, if the bill 
function is selected, the bill is scanned at 42 and checked for proper scanning through 43. If it 
has not been properly scanned, 44, any scanning errors are identified and corrected at 42, and 
the procedure continues through step 10 to determine allowance of pledges or donations. If the 
utility bill is properly scanned at 42, the account digits are checked and verified at 43. If the 
digits cannot be verified at 43, a "fail", 43, is indicated, and the process is repeated through steps 
9 and 43. If the digits are checked and verified, 45, step 10 is initiated to determine if the utility 
company allows pledges and donations and the sub-procedures described above, are followed. 

Turning, now, to Fig. 2B, the deposit step 9A is further detailed. The deposit is made 
at 9B and the bill account number is entered by the operator on the key pad or by application 
of touch to the proper field on the video screen at 9C. The account number is confirmed by the 
computer at 9D. If there is no confirmation, 9E, the deposit cycle is repeated, 9B. If the 
account number is confirmed, 9F, the check digits are confirmed 9G and, if negative, the deposit 
cycle 9B is repeated. If the check digits pass, the driver's license is scanned and a photo image 
on the driver's license is extracted at step 9H. The deposit amount then is entered at 91 and 
confirmed 9J. The deposit amount is re-entered if there is no confirmation of the amount. If 
the amount is confirmed, the sub-step is terminated at 9K. 

Fig. 2B also depicts the steps and sub-steps for determining the errors 42 in properly 
scanning the bill through step 40. If errors 42 are determined, the computer checks for error 
count in steps 42A and 42B. If no errors are determined, the system will return to the scan bill 
step 40. If an error has been determined at 42A or 42B, the computer will indicate a "bad" read, 



42C on the video terminal and the customer will be asked to enter the account number manually 
42D. The number is then reflected on the video screen with a "is this correct?" query, 42E, and 
if not, 42F, the number is again manually entered at 42D. If the correct number is established, 
42G, the check digits are confirmed at 42H and if not confirmed, the number is again manually 
5 re-entered at 42D. The manual amount, 421, is confirmed at 42J until passed at 42K, at which 
time return is established to sub-step 40 and passage through check digits 42, 44. 

MAGNETIC INK CHARACTER RECOGNIT ION COMPONENT 
Magnetic ink character recognition ("MICR") is used to scan checks which are tendered 
by the customer for payment of bills. MICR involves two fundamental steps in the recognition 
10 process. First, the magnetizable ink forming a recognizable character must be magnetized to 
create a magnetic image of the character. Secondly, the magnetic image must be sensed or read 
and identified as a character in accordance with pattern recognition techniques, well known to 
those skilled in the art. The character field is generally divided into a plurality of discrete, 
vertical lines or segments, each line or segment being individually magnetized. A common 
15 magnetization technique is to apply a sinusoidally-varying magnetic field over the character, 
where each sinusoidal cycle is intended to magnetize one discrete segment of the character. 
This technique has been shown by experience to facilitate the reading and recognition of the 
character. 

When the check bearing in-coded characters of magnetizable ink is magnetized or 
20 written upon, it is transported past a write station having a write head that generates the 
sinusoidally varying magnetic field. The transportation of the check past the written station is 
generally by mechanical means, such as a read drum having an outer circumferential edge that 
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grips the document and rotationally transports it past both the right and read stations. It is 
important that the mechanical transport means be driven at a uniform, consistent velocity to 
correlate the position of the character field in the write station with the timed actuation of the 
write head for properly spaced magnetization to occur. Such systems are well known to those 
5 skilled in the art of electronic reading of characters on legal instruments, such as checks, and 
the like. The reader is directed to U.S. Patent No. 4,087,789 for a more detailed description of 
typical prior art apparatuses. Such apparatuses are commercially available through a number 
of corporations, such as Burroughs Corporation, of Detroit, Michigan. 

In operation, the MICR units include the magnetizing head, a magnetic read head and 

1 0 circuitry for recognition of the characters. In operation, the check is passed over the magnetized 
head, which magnetizes the magnetic particles in the ink, and over the read head, which detects 
the magnetization of the ink, and over the read head, which detects the magnetization of the 
magnetized particles and transmits representative signals to the recognition circuitry. 
Frequently, a drive mechanism is provided to drive the check through a channel in the reader 

15 pass the magnetizing and read heads. In many commercial embodiments, the channel extends 
the length of the reader. One end of the check is inserted into one end of the channel and is 
driven the length of the reader along the channel until the opposite end of the check exits the 
opposite end of the channel, where it can be retrieved by the customer. 

Optical character readers may also be used to read the information encoded on the 

20 checks. Such readers incorporate an optical character read head and circuitry for recognition 
of the optical characters. Optical characters typically conform to a predetermined specification 
such as ANSI-X-3.17. 
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The present invention contemplates usage by the customer of credit or bank cards in lieu 
of cash or checks. Such cards contain information encoded on a magnetic strip on one side of 
the card. The strips typically include up to 3 tracks. Information is then coded on the tracks in 
accordance with certain standards, such as ANSI-X-4.16 and IS03554, specifications for 
magnetic strip inclosing. Track one has been developed for use by the air transportation 
industry, track two for the banking industry and track three for the thrift industry. Magnetic 
strip readers include a magnetic strip read head and circuitry for recognition of the encoded 
information. In operation, the magnetic strip of the credit or bank card is passed over the read 
head. 

Magnetic strip readers are used in retail establishments for processing purchases made 
with a credit or bank card. Typically, these devices are located close to a cash register and 
include a slot or channel, open at both ends, through which a sales clerk at the point of sale 
slides or "swipes" the card. Many commercial devices include a MICR reader and a magnetic 
strip reader combined as a single unit. However, the electronic components of the MICRreader 
must be sufficiently far away from the magnetic strip reader to avoid erasing the magnetic strip 
data on a card passing through the magnetic strip slot. The area around both ends of the devise 
must be kept relatively free of other objects to provide unrestricted access to the slots or 
channels, particularly for checks, which comprise of paper medium which are easily bent or 
torn. Accordingly, when a combined magnetic strip reader and a MICR reader are embodied 
in the machine and method of the present invention, it should be compact for accommodation 
into a comparatively small area. Typical of the commercially available combined readers is the 
SCAN TEAM™® 8300 of Raco Industries. 



Although the invention has been described in terms of specified embodiments which are 
set forth in detail, it should be understood that this is by illustration only that the invention is 
not necessarily limited thereto, since alternative embodiments and operating techniques will 
become apparent to those skilled in the art in view of the disclosure. Accordingly, 
5 modifications are contemplated which can be made without departing from the spirit of the 
described invention. 
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